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MODULE CSPCJFMAS : 
(IDENT= 'V04-0 


00' 
»LANGUAGE (BLISS32 
"tr Wiicectte sina ( 


) 
EXTERNAL= GENERAL) 
BEGIN 


leutenceneeenenncensrenseanenneeteeenerteteeteneretrntrententnnenntnnererents 
'e 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

iw DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSEITS. 

:* ALL RIGHTS RESERVED. 

is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
't INCLUSION OF THE ABOVE SF enoviD iy? THIS SOFTWARE OR ANY OTHER 


® 

® 

« 

® 

i 

® 

® 

® 

. 0 * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. * 
4 ® 
!® THE INFORMATION IN THIS SOFTWARE IS seers TO _ CHANGE WITHOUT NOTICE * 
® 

® 

® 

® 

* 

® 

® 

* 


'# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


!® DIGITAL ASSUMES NO RESPONS 
't SOFTWARE ON EQUIPMENT WHIC 


BILITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
H IS NOT SUPPLIED BY DIGITAL. 
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'4¢ 
1 | 
i FACILITY: Action routine for Common Journal Facility executing in 
Cluster Server Process 
i ABSTRACT: Remaster journals when one or more nodes have been removed | 
from a VAXcluster | 
9 i AUTHOR: Paul R. Beck | 
04 ! DATE: 27-JUN-1983 Last Edit: 9-SEP-1983 17:30:12 | 
04 REVISION HISTORY: 
04 i v03-004 ADE0001 Alan D. Eldridge 10-Feb-1984 
? ne? Change module name. Rename CSP$GQ_GRANTQ to CSP$GQ_RESUME. 
4 rh i v03~003 PRBO250 Paul Beck 9-Sep-1983 18:32 — 
48 sh ! Fix various problems relating to levels of .indirection. 
4 3 Correct calling of cluster failover resumption routine. 
2 051 i V03-002 PRBOxxx Paul Beck 15-AUG-1983 15:20 
38 O26 : Fix various problems with levels of indirection. 
4 54 i V03-001 PRBO234 Paul Beck 1-AUG-1983 15:20 
55 5 : Fix bug in calculating size of journal name, 
28 28 remove reference to JNLRMSB_JNLTYP. 
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XSBTTL ‘Local definitions and macros’ 
Require files: 

‘LIBRARY 

: *SYSSLIBRARY:LIB'; ! define system services (in JNLPREFIX) 
WITCHES LIST (SOURCE); 


S$ 
' 
Linkages used 
L 


INKAGE 
JSB.2 = JSB (Rest STERSS). 
ALORONPAGED = JSB (REGISTER=1; REGISTER=2): NOPRESERVE(0,1,3), 
DEANONPAGED = JSB (REGISTER=0): NOPRESERVE(0,1,2,3); 

Declare forward routines 

FORWARD ROUTINE 
REMASTER_CHAIN ! remaster jnls of one Sp 
RESUME FAILOVER, ! issue Q10 to resume failover sequence 
RESTART _BAS : NOVALUE, ' reschedule base thread 
TEST_DEVICE, ' verify accessibility of jnl home device 
REMASTER_JOURNAL, ' remaster single journal 
REMASTER_CONTROL, ! remaster control journal 
CALL_RCP : NOVALUE, ' send request to RCP for RU journal 
RELOCK_CHAIN : NOVALUE, ' convert lock on chain to exmode 
eeereus : NOVALUE, ' convert lock on chain to null 


' 
Declare external routines 


EXTERNAL ROUTINE 
L1B$ 


CSP E, 

CSPS$SEND_CONTEXT, 

CSPSSWAIT, 

CSPSSFORK 

CJFSRESUME_FAILOVER : NOVALUE; 


' 
! External variables. 


asynch wait within 
create new thread 
resume failover sequence 


GET_VM, LIBSFREE_VM, ' RTL allocation routines 
LIBSGET_EF, bicge EE WEF. ! RTL event flag routines 
SYSSENQ, SYSSDEQ, ! lock manager system services 
EXESALONONPAGED : ALONONPAGED, ' allocate nonpaged poo 
EXESDEANONPAGED : DEANONPAGED, ' deallocated nonpaged pool 
CJFSASSJNL, ! assign journal 
CJFSDEASJNL, ! deassign journal 
CJFSALLJDR ' allocate journal drive 
CJFSDEALUDR, i deallocate Yournsl drive 
CUFSRECOVERW ! issue recover reguees to RCP 
etre tan PROTO, ' Lock prototype UCB 
CJFSCREJAL, ' create journal 
LOCK_J0DB8 : NOVALUE, ' lock 1/0 database 
UNLOTK_I0DB : NOVALUE, ' unlock 1/0 database 
DELETE_I0DB NOVALUE, ' delete UCB-related CJF structures 

ELETE_UCB NOVALUE, ' delete CJF UCB. 
CREATE RUDEV, ' create device name of RU jnl 

SRE SUM async AST address within CSP 

! 
i 
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1 
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1 
1 
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kill current thread and reschedule 
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1 
ae 


' scheduler queue 

' current context 

' frame ptr for scheduler call 

' addr at which to resume failove 

D; ! ID of most recent failover soaunee 


RESUME "A 
FAILOVER_ 


“ao 
} eas 


Own storage accessible to all callers and all routines in this module. 
OWN 


LOCAL_EFN event tag for Rd. routine 
uCcBQ C 


BYTE 
: VECTOR C2,LONG) i queue of UCB clones 
INITIAL (UC 
UCBMASTERQ : VECTOR C2,L ueue of locally mastered RU UCBs 
INITIAL (UCBMASTERQ, vie ASTERQ), 
CALLED. COUNT INITIAL ( 0 ! times this routine called 
REMASTERING BYTE INITIAL (0); ! flag: failover in progress 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

: LITERAL 

i i Define size of JSB plus maximal device name descriptor List. 
1 jsp. LENGTH = JSBSC_LENGTH + (JNLSC_MAX_COPIES*8) + 4; 
: Macro to restart remastering loop at the top. 

: MACRO — RESTART. REMASTER_LOOP = 

1 LOCAL_CALLED el ® = .CALLED_COUNT; 

1 LEAVE REMASTER_L 

1 EN D; 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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] 
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Macro to issue call with arguments from kernel mode. 


CONAMESWN OO OONOAUVUE WN SO DOODNOUE WN OOOO 
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4 MACRO _KRNL_CALL (K_ROUTINE) = 
s BEGIN 
1 ” EXTERNAL ROUTINE 
é 4 SYSSCMKRNL —: ADDRESSING_MODE (ABSOLUTE); 
" BUILTIN SP ; 
m SYSSCMKRNL (K_ROUTINE , ZLENGTH - 1 
4 ZTF XLENGTH Rf ZTHEN , XREMAINING %FI) 


o 
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geeereerenre temps geeeereeere 
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SSS 


NOT ZDECLARED (CJFSM_FAILOVER) 
EXTERNAL LITERAL CJFSM_FAILOVER; 
NOT ZDECLARED (1OSM_GETMINFO) 
EXTERNAL LITERAL JOSM_GETMINFO; 
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1 ¥SBTTL *CSPSCJFREMASTER = remaster journals in a VAXcluster' 
CSPSCJFREMASTER 


FUNCTIONAL DESCRIPTION: 
This routine is an action routine running in the context of the 
Cluster Server Process (CSP). It is invoked from the Journal Driver | 
when JNLDRIVER is notified that a cluster failover is in progress 
(cluster failover’’ is the removal of one or more nodes from a A a 
VAXcluster). Note that unlike many CSP oct on routines, this routine is 
invoked in the same node a the driver; it runs in the CSP in order to 
provide a process context in which to remaster journals. The JNLACP is | 
not used to provide this process context so that the peventer rag code 
can conveniently call normal CJF service? (which result in JNLACP 
activity) without making the JNLACP multithreaded. 


Journals may need to be remastered following a node failure in a cluster 
because that node may have been master to one or more cluster-wide 
journals in use from other nodes. If the journal file is accessible from 
another node, that node may remaster the journal. 


The function of the routine is to try to become the master of any 
journals which are currently unmastered and available. All nodes in the 
cluster attempt to do this; the lock manager is used to keep them honest. 
The order of events is: 
° Note that when this routine is entered, the VAXcluster 
in the middle of the failover festivities. Locks from 
the failed node(s) have been deleted, and most locking 


SSVESRENLSSSLESRANLSSELSEAFAVSS 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
! gestyrty is perersted; however, ‘‘protected’’ locks 
} (LCKSV_ were T) are still being stalled to allow the RCP 
! to reestablish locks from Recovery Units in the failed 
! node(s). (Ref steps 1-3) 

! 1. Obtain the journal master lock (CJFSMASTER) to lock out 
: any journal ———e code on nodes just starting up. 

! a. Remaster Recovery Unit Journals. This involves obtaining 
, a lock on the first unmastered RU journe’ we can 

i remastering it (if it's accessible), releasing the lock, 
: and trying for the next. The loop continues until all 

: unmastered RU Journals are either mastered or marked 

‘ unavailable”. 

: Invoke the Recovery Control Process once for each 

} macevery Unit Journal mastered socatty. Tht RCP will 

n 
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reestablish locks for those Recovery ts not marked 


i 

completed from nodes not in the cluster. 

‘ ‘Resume’’ the Failover table. 

‘ Remaster Control Journals so that journal devices are 

reallocated as necessary. 

Remaster Al, BI, and AT Journals. 

Release the Journaling Master Lock. 

CALLING SEQUEN 
MOVAL 


D,R2 
P$CJFREMASTER 


mn" 


DOONAN UDR @ OOD NOA NEW $$ 9 OD NOA UE WN 9 ODNOAUE WN OOS NOUS WN 


WO OOnNOu lw 


WA HAA PUPINOPINONYD 


JSB 
! FORMAL PARAMETERS: 
P1 = address of CSD structure identifying the colt ing perameters. 
No parameters are required; just being invoked is sufficient. 
COMPLETION CODES: 
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} t=. 
es GLOBAL ROUTINE CSPSCJFREMASTER ( CSD: REF BLOCK C,BYTE] ): JSB_2 = 
' 


o~ 
NOU 


| 
| 
i Local storage | 
: | 


LOCAL 
a Te sus completion status 
CL-STATUS, | #6a 
AI_STATUS, . wes 
BI_STATUS, ; ees 
AT_STATUS, S gee 
LOCAL _CALLED_COUNT : LONG ! impure copy of CALLED_COUNT 
HOME CONTEXT : REF BLOCK C,BYTE), ' address of context block for this thread 
MASTER_LKSB : VECTOR C2,LONG); i lock status block 
LABE 


L 
REMASTER_LOOP; 


HOME CONTEXT = .CSPSGL_CURCTX; 
CALLED_COUNT = ,CALLED-COUNT + 1; 


! Always save the lastest failover ID and sequence resume address. These 
! reside with the routine CJFSRESUME_FAILOVER. If a new failover sequence has 
! started we don't want to resume an old one... These values are filled in by 
: the journal driver when it is first called from the failover sequence. 


OWONAVUELSWN OO OONOUVLSWN OOO 


RESUME_ADDRESS = .CSD ccspst P1); 
FAILOVER_ 1D = .CSD CCSD$L_P27; 


Bail out if somebody is currently in the throes of remastering journals. 


IF NOT .REMASTERING THEN REMASTERING = 1 ELSE RETURN SS$_NORMAL ; 
LOCAL _CALLED_COUNT = .CALLED_COUNT; 


| 
| 
| 
| 
Get an event flag for synchronous waits in kernel mode. 
| 
| 


CoONAU EWN — 


LIBSGET_EF (LOCAL_EFN); 
Get the CJF master lock (from Kernel mode) 
STATUS = KRNL_CALL ( SYSSENQ, 


Wwn— 


EFN 
Lexs: LKMODE = concurrent write lock 
LKSB = 


K_CWMODE, 
HOME CONTEXT CCLX$Q_10SB), 


' 
' 
! $ lock status block 
g sity Y ' FLAGS = system-wide lock 
0 SCIB ‘CJFSMASTER', ' RES = name of lock 
1 ' PARID = no parent 
; CSPSSRESUME, i ASTADR = completion AST in CSP 
HOME _CONTEXT, ! ASTPRM = allows CSP to resume us 
& ! BLKAST = no blocking AST 
5 PSLSC_KERNEL, ' ACMODE = kernel mode lock 
§ . ! reserved parameter 
IF .STATUS THEN CSPSSUAIT ()j 
§ STATUS = .HOME_CONTEXT CCLX$W_10SB_STATI; 
IF NOT .STATUS THEN MUMBLE(); ! why can't we get it? 
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we TOP OF LOOP *** 


We do the entire process in a loop, making sure that if any journals become 
unmastered while we're here (i.e. a second failover), we catch them. 
his implies a couple of caveats: 


‘ We “get out’’ when we've made a pass wherein NO unmastered 
ournals not marked ‘‘unavailable’’ were seen. 
2. no unmastered journals’ final pass must be made such 


s e 
that NO CSP WAITS ARE DONE (fully synchronous). Otherwise we 
might miss something (and a new call to CSPSCJFREMASTER would 
ust exit because we have REMASTERING set). 
| ® ecause of the special nature of the handling of RU journals, 
we look for unmastered RU journals at a higher rate than 
the ‘‘peon’’ journals (AI/BI/AT/CL). 


HILE 1 
dO 


REMASTER_LOOP: 


BEGIN 
' 
Remaster Recovery Unit journals and call RCP for each locally masterecu RUJ. 


RU_STATUS = 0; 
UNTIL .RU_STATUS EQL SS$_NOSUCHDEV 


RU_STATUS = KRNL_CALL ( REMASTER CHAIN, DTS$_RUJNL ); 
i Resume the failover table. This tells the Cluster connection manager to 
' continue executing those oeape required to complete the failover. In particular, 
full locking will once more be permitted. 
KRNL_CALL ( CUFSRESUME_FAILOVER ); 
Remaster control journals and reallocate journal devices. 


CL_STATUS = 0; 
UNTIL .CL_STATUS EQL SS$_NOSUCHDEV 


CL_STATUS = KRNL_CALL ( REMASTER_CHAIN, DTS$_CLUNL ); 
If any new requests have been seen, restart from the top immediately. 
IF -CALLED_COUNT NEQ .LOCAL_CALLED_COUNT THEN RESTART_REMASTER_LOOP; 
Remaster Al journals. 
Al STATUS = KRNL_CALL ( REMASTER_CHAIN, DTS_AIJNL ); 
: If any new requests have been seen, restart from the top immediately. 
IF -CALLED_COUNT NEQ .LOCAL_CALLED_COUNT THEN RESTART_REMASTER_LOOP; 
} Remaster BI journals. 
BI_STATUS = KRNL_CALL ( REMASTER_CHAIN, DTS$_BIJNL ); 
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1 
If any new requests have been seen, restart from the top immediately. 


IF -CALLED_COUNT NEQ .LOCAL_CALLED_COUNT THEN RESTART_REMASTER_LOOP; 


—_ 


| Remaster AT journals. 

AT_STATUS = KRNL_CALL ( REMASTER_CHAIN, DTS$_ATJNL ); 

If any new requests have been seen, restart from the top immediately. 
IF .CALLED_COUNT NEQ .LOCAL_CALLED_COUNT THEN RESTART_REMASTER_LOOP; 
; See if we did anything this pass. If not, we're done. 


iF CRU estar o. SS$_NOSUCHDEV) no RUJs this 
a 


AAT eat SS$_NOSUCHDEV) no control jn : “this pass 
-AI=STAT Us E L SS$_NOSUCHDEV) no AlJs this pess 
no BIJs this pass 
no ATJs this pass 


ann 


-BI-STATUS FOL SS$-NOSUCHDEV) 
AND (.ATLSTATUS EQL SS$"NOSUCHDEV) 
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4 
4 
4 
4400 Ergo, we're done. 
4401 
440 Ex1TLOOP; 
37 440 END; ' WHILE 1 
378 4404 ! 
43 4405 i Reset the mutex. 
80 4406 i 
381 4407 LIBSFREE_EF (LOCAL EFN); 
$86 4408 REMASTERING = 0; 
8 4409 ! 
384 4410 i Release the Lock 
$82 4411 ! 
86 441 BEGIN 
387 441 BIND 
388 4414 LOCK_ID = HOME _CONTEXT CCLX$Q_I0SB) + 
389 4415 KRNL_CALC ( SYS$DEG, .LOCK_ID, 0, PSLSC_K KER NEL, 0); 
90 7218 END; 
91 441 ! 
4 4418 ! That's it. 
9 4419 ! 
94 +259 RETURN SS$_NORMAL; 
95 4421 END; 


-TITLE CSPCJFMAS 
-IDENT \V04-000\ 


-PSECT CJFSPLIT,NOWRT,NOEXE, SHR, PIC,2 
B: .ASCII \GubSne TER\<0><0> : 
cP. A: .LONG 1769473 : 
«ADDRESS P.AAB : 


-PSECT CJFSOWN,NOEXE, PIC,2 


| 
| 
No attempts were made to remaster any journals this pass. 
| 
| 
| 


00 00 52 45 54 53 41 4D 24 46 4A 43 09 


0060000" 


ons FRAS 


000000006 
000000006 


00000000' 


000000006 


o 
— 
nn 
oO 
co 
7 


000000006 
00000000' 


30 


oo 
oo 
oo 
oo 
oo 
oo 
oo 
oo 
MOOPF $M NOUINTNOMMONM S SPMmoo 


MOP LO MM OLMM TT OH MPP" OCG 


»LON 
00 00018 REMASTERING: 
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VCTIONTNOSOOUMoOIIIOO 


00000 LOCAL_EFN: 
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00000000 00014 CALLED_COUNT: 


4 


& & & PANINI | | OO 


AD NIMS DD OMOVIMDLOLM= 


UCBQ: 
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CSPSC.IFREMASTER = remaster journals in a VAXclu 16- sen-1984 9}: 19 8 SYSLOA.SRC CSPCJFMAS. 5 2:1 


:BLKB 
“ADDRESS ucBa, UCBQ 


¢ UCEMAsTERa: 


1$: 


ADDRESS UCBMASTERQ, UCBMASTERQ 


~PSECT 


0000 sara tr a 


0 

0 

1OCSCVT_DEVNAM, EXESALOP1IMAG 
EXESDEAP1, LIBSGET 
LIBSFREE_VM, LIBS$GET_EF 
LIBSFREE-EF, SYSSEN 

SYS$DEQ, EXESALONONPAGED 
EXESDEANONPAGED 

CUFSASSUNL, CJFSDEASJNL 
CJFSALLUDR, CJFSDEALJDR 
CJFSRECOVERW, CJFSLOCK _PROTO 
CJFSCREJNL, LOCK _IODB ~ 
UNLOCK_1008, DELETE 1008 
DELETE-UCB CREATE E_RUDEV 
CSPS$SRESUME, CSP fen 
CSP$SWAIT, CSPS$FO 

CJFSRESUME FAIL OV 

CSPSG0_ RES “C3PSG L_CURCTX 


CJFSCODE .NOWRT, SHR, PIC,2 


#°M<R2,R3,R4,R5,R6,R7,RB> 


CSPSGL_CURCTX, HOME_CONTEXT 
ALLED~COU 

(C SDT, RESUME_ADDRESS 
CSD) ait FAILOVER. I 


REMASTERING 
DE CUNT. LOCAL_CALLED_COUNT 


2 
? 
1 
A 
0 
} TBSGET_EF 
( 


New re “2 


HOME _CONTEXT) 
e ~(SP) 


OYBBFEesVirzi tt s—-o2-wOOO 


 w—00—*-  — H 
= 


 — ————— 


CSPC pmas bse 4 AX-11 Bliss-32 V Page 10 
vit CSPSCJFREMASTER = remaster journals in a VAXclu 1 ~3007 138% 94: 18 48 SYSLOA. SRC cep uE has hS2, 1 . ¥ 
00000000G 00 9F 9 PUSHAB SYSSENQ g 
000000006 9F f : CALLS #14, S#SYSSCMKRNL : 
> t 8 Brae SgATOS + 4317 
000000006 9 B CALLS #9 CSPSSWAIT : 
30 A f 28: MOV2WL 4 (HOME CONTEXT), STATUS : 4318 
5 5 BLBS TATUS : 4319 
ane Be O0OBF 3S EAS RU sratcs + 4344 
00000908 8F o H '$: CMPL BYLSTATUS, #2312 : 4345 
16 «1 9 BEQL 5 : 
1 DD 9A PUSHL 3 4347 
1 0D 9C PUSHL #1 : 
E bd 9 PUSHL SP : 
0000Vv cf F BOA PUSHAB REMASTER_CHAIN : 
000000006 a 4 FB OOOA4 CALLS #4, @#SYSSCMKRNL : 
5 50 p O0AB MOVL » RU_STATUS : 
a OA BRB ; 
E 04 00080 5$ CLAL -(SP) 3 4353 
5E DD 0008 PUSHL SP ; 
000000006 F 00084 PUSHAB CJF SRESUME FAILOVER : 
000000006 9F FB QOOBA CALLS #3, @#SYSSTMKRNL 3 
D4 b00C) CLRAL CL_STATUS 3 4357 
00000908 + 8F 53 D1 000C3 6$ CMPL lathe #2312 : 4358 
\6 13 OOOCA BEQL : 
05 dd OO00CC PUSHL #5 ; 4360 
gt DD OOOCE PUSHL #1 : 
E DD 000D PUSHL SP ; 
0OOOv CF 9F 000D PUSHAB REMASTER_CHAIN : 
000000006 9F 9% FB 000D CALLS #4, @#SYSSCMKRNL 3 
53 0 00 000D0 MOVL RO, CL STATUS : 
E1 11 OQOOEO BRB 3 
52 00000000' Ef D1 O02 7$ CMPL CALLED_COUNT, LOCAL_CALLED_COUNT 3 4364 
7 12 QOOE BNEQ 8 3 
83 DD OOOEB PUSHL # : 4368 
1 DD OOOED PUSHL HI : 
5E bb COEF PUSHL ; 
0000v CF 9F O00F1 PUSHAB REMASTER CHAIN : 
000000006 9F 04 FB OOFS CALLS #4, Q#SYSSCHKRNL ; 
58 0 OD pore MOVL RO, TUS 3 
52 00000000' ff Db} OFF cHPL CALLED” “Fount LOCAL_CALLED_COUNT ; 4372 
2 DD 5108 PUSHL eS : 4376 
1 DD OO10A PUSHL #1 ; 
E bo 10C¢ PUSHL SP ; 
0000v CF 9F 001 PUSHAB REMASTER CHAIN : 
000000006 oF ‘ of i CALLS +y ried rsite RNL 3 
25 00000000' 44 ») ! CMPL es COUNT, LOCAL _CALLED_COUNT : 4380 
4 0D 001 PUSHL : 4384 
1 DD 001 PUSHL i : 
f bo 129 PUSHL : 
0000V F 00128 PUSHAB ReMast ER_CHAIN ; 
000000006 4 FB 10F CALLS aaSYSSCMKRNL ; 
$ 0D 1 6 MOVL RO, AT_STATUS : 
00000000' EF D1 001 CMPL CALLED“COUNT, LOCAL_CALLED_COUNT 3 4388 


a —-4 


voacboo CSPSCJFREMASTER = remaster journals in a VAXclu 1$-se0-1944 9}: 18; 8 ysl ba sae Ceecie VPRAS. aS2; 31 ‘Sone (4) 


OA 1 4 BEQL 108 : 

52 spcesanl p 14 if ROVE ALLED_COUNT, LOCAL_CALLED_COUNT : 
00000908 8F 5 p 13 $ CPL RY_STATUS, #2312 + 4392 
00000908 = &F 3 b is CML gL STATUS, #2312 + 4393 
00000908  aF : D1 001 CMPL  AI_STATUS, #2312 + 4394 

E if 16 BNEG 9$ : 
00000908 = aF é p 16 CPL I STATUS, #2312 + 4395 
00000908 = 8F FH of 125 CMPL ss AT igs, #2312 + 4396 

D 17 BNE os : 
00000000' FF 9F 00179 PUSHAB + 4407 

000000006 00 1 fe 17F CALLS uve AES SFR REE_ ; 
00000000' i 3 186 CLRB = REMASTERING ~ + 4408 
—E 7C 0018C CLRQ  =(SP) + 4415 

7E 04 18 CLRL -(SP) 3 

34 A4 OD 19: PUSHL 52 (HOME _CONTEXT) : 

04 DD 0019 PUSHL #4 ; 

E DD 0019 PUSHL ; 

000000006 00 9F 00197 PUSHAB SYSSDEQ ; 

000000006 9F 7 FB 19D CALLS #7, @#SYSSCMKRNL ; 
50 01 DO OO1A4 118: MOVL #1. RO + 4420 
SE 08 CO 001A7 ADDL2 #8, SP 3; 4421 

O1FC SF BA aia POPR #*°M<R2,R3,R4,R5,R6,R7,RB> : 

05 OO1AE RSB 3 


; Routine Size: 431 bytes, Routine Base: CJFSCODE + 0000 


Sn 


1 
REMASTER_CHAIN = remaster journals of one type 18-Sep-1984 94:19:88 


AX-11 Blis 38 V4.0-74 Page 12 


Cae CapmAS 
v04-000 SYSLOA.SRCICSPCJFMAS .B52;1 (4) 


; 338 rn 3 } ESBTTL ‘REMASTER CHAIN = remaster journals of one type’ : 
; 399 4424 1 ! REMASTER_CHAIN 3 
; 400 4425 1! : 
; 401 44 8 1 | FUNCTIONAL het abt bag 3 
; rh 4G 3 K p trying to remaster journals of the specified type ; 
; 40 44 8 1! until all journals of this type are either remastered by someone : 
3 404 44 1! or are known to be unavailable. We operate primarily off a copy of 3 
; 405 4430 1! the UCB chain to keep the 1/0 data base unlocked and know that : 
; 406 4431 1! we're safe since while we're remastering, no new journals (and hence : 
: 407 4b § 1! no new UCBs) can show up. ; 
3 $88 44 1 ! CALLING SEQUENCE: ; 
; 40 4434 1! TUS = KRNL_CALL REMASTER_CHAIN ( JNLTYP ); : 
; 410 4435 1 ! FORMAL PARAMETERS: : 
3; 411 44 § 2 JNLTYP = value of journal type to be remastered. ; 
3 alg 44 1 ! COMPLETION CODES: ; 
; «41 4438 1! SS$_NORMAL = one or more journal was touched (an attonet was made, : 
3 414 4439 1! whether successful or not, to remaster it F 
3 ai2 rrr | : SS$_NOSUCHDEV = no available, unmastered journals were found : 
; 417 rrr | 1 ROUTINE REMASTER_CHAIN ( JNLTYP ) = 3 
; 418 444 BEGIN 3 
3; «419 4444 LOCAL : 
: 420 4445 STATUS, ' completion status F 
: 421 rrr | PROTO_UCB REF BLOCK C,BYTE), ! addr of UCBO for this chain 3 
3; 6 ; 444 : REF BLOCK C,BYTEJ, ! addr of individual UCB ‘ 
5 4 4448 LOC_UCB : REF BLOCK C,BYTEJ, ! addr of copied UCB : 
: 424 4449 LKS6 : VECTOR g-LONG). ' Lock status block for proto lock F 
3; 425 4450 JNL_LKSB VECTOR Lone e ' lock status block for journal lock : 
: 426 4451 JNL_LOCKNAME BLOCK (8,BYTE : wesgriptor of lock name 3 
> 427 44o¢ RESET ( COSC$W_LENGTH] = 0, ; 
; 428 445 Betee-es iced = 0, : 
: 429 4454 DSC$B_CLASS = 8 3 
: 430 4455 DSC$A-POINTER] = 05, ; 
3; «6431 $628 DELETE LOCAL_UCB BYTE INITIAL (OJ, ' flag 3 
3 4 ¢ 445 UNAVAICABLE : BYTE, ' flag 3 
; 43 4458 SOME THING_DONE : BYTE INITIAL (0), ! flag: suitable journal found : 
: 434 4459 NEXT_U : LONG, ' pointer to next UCB : 
: ‘ 5 $660 ALLOC_SIZE : LONG; ! allocation size ; 
: 437 446 BIND ; 
; 438 446 PROTO_LOCK_ID = LKSB C1); ' Lock ID for UCB chain Lock : 
; 439 4464 L 3 
3; 440 4465 PROCESS_UCB; 3 
3; (441 446 BUILTIN : 
3 rr 446 INSQUE , REMQUE ; 3 
; 44 446 ' : 
3 ate re First, lock the 1/0 data base and this UCB chain : 
; $68 447 STATUS = CJFSLOCK_PROTO ( .JNLTYP, ! define which chain to lock ; 
3; «44 447 LCKSK_EXMODE, ! we want an exclusive lock : 
; 448 447 PROTO_UCB, ! return the addr of the base UCB ; 
3: 449 4474 PROTO_LOCK_ID ); ! return the lock ID : 
3 $29 4475 IF NOT .STATUS THEN MUMBLE(); : 
3 $2) £628 UNLOCK _10DB8(); ; 
: re 4478 ! Make a copy of each unmastered UCB in this chain while we have everything 3 


ee 


1 

CSPCJFMAS bse -1984 01:16: AX-11 Bliss-32 V4.0-74 Page 13 

y04000 REMASTER_CHAIN = remaster journals of one type : =Sep- 38 94:19:88 SYSLOA SREICSPCUFMAS. B92: 1 . (4) 

H : ¢ ret locked up. Keep a backpointer to the real UCB in UCBSL_LINK. : 
: 4 é 44 UCB = .PROTO_UCB; ; 
: § 44 UNTIL (UCB =”.UCB CUCBSL_LINKI) EOL 0 : 
; 6 , 4484 BEGIN ; 
; 46 4485 BIND : 
; red rr 8 UCB_DEVCHAR = UCB CUCBSL_DEVCHAR): BLOCK (4,BYTE]; ! ‘‘available’’ flag in this longword : 
: 46 488 IF (UCB CUCBSV_JNL_UNMAST]) AND (.UCB_DEVCHAR CDEVS$V_AVLJ) ; 
: 464 44 3 THE : 
eo on see ee : 
: ret £236 ? This UCB is unmastered and not marked unavailable. Copy it. : 
; 469 4494 4 SOMETHING DONE = 1; : 
; 470 4495 4 EXESALONONPAGED ( UCBSC JNL_LENGTH; LOC_UCB ); ; 
; 471 ree | & CHSMOVE ( UCBSC_JNL_LENGTH, .UCB, .LOC_OCB ); H 
; are 4497 4 LOC_UCB CUCBSL = .UCB; ; 
: 47 4498 4 INSGUE ( .LOC_OCB, UCBQ ); 3 
: 474 4499 END; 3 
i de Eo | 
: 477 4908 i Rather than releasing the lock on the proto UCB, we downgrade it to a ; 
3 of t2p7 } null lock so we can use it as the parent lock for Journal Locks. : 
: 480 is FREE_CHAIN ( LKSB ); ; 
: 48 45 : i Start an “endless lLoop'' which is only exited when we recognize that all ; 
: 48 4508 ! journals in this UCB chain have either been remastered (by us or somebody F 
3 tee t+ 4 else), or marked unavailable. : 
: tbe 4511 2 LOC_UCB = UCBQ; ! init “this UCB" pointer ; 
: 487 $2i6 WHITE 1 3 
; 4488 451 dO 3 
BE ook oe : 
: 491 4316 i For each journal in he List, attempt to remaster. ; 
: 49 451 ! First, we must get the lock for the journal. If we can't get the lock 3 
; 49 4518 ! we move on to the next journal in the List. When we run out of journals, 3 
: 494 4519 ! we try again! Eventually (it sez here) all journals will have been taken ‘ 
3 ret rt ? care of. ; 
; rh $2 § If the queue is empty, we're done (we've run out of journals). ; 
; 499 4524 iF .UCBQ EQL UCBQ THEN EXITLOOP; ; 
2 501 $2 5 IF .LOC_UCB EQL UCBQ THEN Loc_ute = ,.LOC_UCB; ; 
i 308 43 ? 3 process_uce: 3 
2 en oe : 
: 06 43 i= i The journal Lock consists of the journal name (as found in the : 
3 508 $2 § 2 UCB), zero-filled as needed, with the UCB chain lock as its parent. : 
; 509 43 4 4 LOCAL ; 
3 310 4535 4 NAME_SIZE : BYTE; ! Length of journal name 3 


AX-11 Blis 


. 
REMASTER_CHAIN = remaster journals of one type 12286871382 94:19:28 SYSLOA.SRC 


VMFWN —O OCONOUSWN —OOONOULWN— 
vuvv 


eee te eee apn panna 
~ 


PPP DPS Be BP BB BP PPE PWIA 


VOAFANSSSSGSASOR IS Se K a 2S oer won een ose ae 


PUPP EB EEE EE EI 
SAN NNN NNO OOOO 


NAME SIZE = LOC UCB CUCBST INL NAM] 
IF (> 12 SIZE'= UCBS$S_JNL_NAM; 


EGL 0) THEN RAME“SI 
B = Q; 


= "UCB 
= LOC _OCB CUCBST_JNL NAM]; 


-—2a 

Zaz 
mnnnnn—i— > 

mx 


NAM J 

SENQ C 

NL_L ! lock status block 
CKSM_NOQUEUE OR LCKSM.SYSTEM, ! now or not at all 
NL T name of lock 

P fo) 


PAR -PROTO_LOCK_ ; ! parent = prot 
IF NOT .STATUS THEN LEAVE PROCESS_UCB WITH (DELETE_LOCAL_UCB = 8); 


We got the lock. 


' 
i 
! Now, try to remaster the journal. First, however, double-check 
i the real UCB to see if someone else mastered it first. (As long 
as we have the journal lock, they won't.) 

' 

i 

1 


RELOCK_CHAIN ( LKSB ); 

UCB = .LOC UCB CUCBSL_LINK); 

STATUS = .0CB CUCBSV_JNL_UNMAST); 

! We have the information we want (in STATUS): release the chain. 
FREE_CHAIN ( LKSB ); 

If it's no longer unmastered, go on to the next UCB 

IF NOT .STATUS THEN LEAVE PROCESS_UCB WITH (DELETE_LOCAL_UCB = 1); 
It's still unmastered. Here, we try to remaster it. 

SELECTONE -JNLTYP OF 


DT$_AIJNL, DT$_BIJNL, DTS_ATJNL, DT$_RUJNLI: 
IF NOT REMASTER_JOURNAC ( .LOC_UCB, LkSB ) 


LEAVE PROCESS_UCB WITH (UNAVAILABLE = 1); 
COTS CL gma: 


N 
REMASTER_CONTROL ( ,LOC_UCB, LKSB ); 
DELETE LOCAL _UCB = i; 


TES; 
END; ! PROCESS_UCB 


Release the journal lock 

$DEQ ( LKID = .JNL_LKSB C1] ); 

} Mark journal unavailable if requested 
UCB = .LOC_UCB CUCBSL_LINK); 
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oo 


° Bra SIZE, LOC_UCB CUCBSB_JNL_NAM] + .NAME_SIZE ); 
S_JNL NAM; 


KSK_PWAODE, '“protected write lock 


voesb00 REMASTER_CHAIN = remaster journals of one type 18-Sep-1984 94:19:28 SYSuOAPsRe cebcten Rs’ b$2; ;1 


H 6 4 ; If UNAVAILABLE : 

3 8 4 THEN ; 

3 Y 4595 BEGIN 3 

3; OF 4 $ & ND 3 

; f 2 ; 2 UCB_DEVCHAR = UCB CUCBSL_DEVCHAR]: BLOCK (4,8YTE]; : 

: re t2 ; : First, get the lock exclusively again. 

i 9? 460) 4 RELOCK_CHAIN ( LKSB ); ; 

: f 4808 ? Mark the UCB unavailable. 3 

: 580 4603 4 UCB_DEVCHAR CDEVSV_AVL] = 0; ; 

: e 46 4 Release chain lock ; 

; $84 2609 4 FREE CHAIN ( LKSB ); : 

; 585 4610 4 DELETE_LOCAL_UCB = 1; ; 
fm Bayo : 
: 288 agi8 Get rid of the UCB if needed. 3 

: 590 4615 iF {DELETE LOCAL_UCB : 
oa Bi : 
: 59 4618 4 REMQUE ( .LOC_UCB, LOC_UCB ); ; 

3; 594 4619 4 EXESDEANONPAGED  ( -LOC-UCB ); 3 
me gay, oe : 
; 444 rh ¢ Get pointer to next local UCB and continue. ; : 
; 599 4624 LOC_UCB = .NEXT_UCB; 31 
: 600 re 5 ; END; ! While 1 : : 
; O88 rh ; Call the RCP for each journal mastered by this node. ; : 
: 604 46 5 if .JNLTYP EQL DT$_RUJNL 31 
: rr te ? SSEGIN ; 1 
: $09 46 : LOC_UCB = UCBMASTE :1 
3 ons ri z UNTIL (LOC UCB = ere UCB) EQL UCBMASTERQ : : 
: 610 4635 CALL_RCP ( .LOC_UCB ); ; 
Hl BBG) om : 
3 ei? + 3 Release our local allocations. : ! 
; 615 4640 UNTIL REMQUE ( .UCBQ ucB ) DO EXESDE ANOUP AGED ( .UCB ); ; 1 
3 e18 rret UNTIL REMQUE ( ( [UCBMASTERQ, UCB ) DO EXESDEANONPAGED ( {ucB ); : { 
; 618 ases Release the chain lock for real. 31 
: 620 4645 2 $DEQ ( LKID = .LKSB C1); 

; 3 4 $ i Done 

: 6 : 4648 i 

3; 624 464 RETURN (IF .SOMETHING_DONE THEN SS$_NORMAL ELSE SS$_NOSUCHDEV); 


H 1 
CSPCJFMAS ep-1984 AX-11 Bliss-32 V P 1 
yo0<000 REMASTER_CHAIN = remaster journals of one type 122868 Sep 1382 94: 19 u SYSLOA.SRCIC CSPCJF Vtnns B82; 31 te? (aS 
: 625 4650 1 END; 
OFFC 00000 REMASTER_CHAIN: 
“WORD §$ e R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 3 4462 
5E 20 ¢2 SUBL a3 SP ; 
08 AF : CLRO AME + 4455 
2 CLRB NL LC LOCAL ucB 3 
A 9% A CLRB SOME TH HING DORE ; 
1¢ «AE OOF C PUSHAB PROTO_L LOCR. 1D + 4471 
0 AE F F PUSHAB * sponge ; 
05 0D 0001 PUSHL : 
04 AC DD 0001 PUSHL JNLTY ; 
000000006 9 4 F 1 CALLS a, EIFSLOCK _PROTO ; 
Q D IE MOVL ; 
5 E BLBS srry + 4475 
0000v CF 0 FB 4 CALLS ; 
000000006 90 0 F 9 1$: CALLS UNLOCK. 1008 + 4476 
g4 AE D 0 MOVL m0: UCB. yee + 4481 
57 0 af » 3 28: novi 48(uCcB), 3: 4482 
FS 69 A? 1 a A BBC sue 3s + 4488 
FO A A? 2 €1 F BBC #2, 5 2 : 
3A 1 90 00044 MOVB a SOME THING_DONE + 4494 
1 ric BF 3C 00047 MOVZWL R 7 4495 
a 000000006 9 1 5 JSB EXESA ONONPAGED ; 
66 67 011C ~=oBF } 2 MOVC3 #284, (uc), (LOC_UCB) + 4496 
30 Ab 7 D 5B MOVL ue "48(LOC UCB) + 4497 
00000000" EF 66 OF SF INSQUE (Loe UeBS. “otea + 4498 
cc 66 BRB ; 448¢ 
18 AE OF 3$: PUSHAB LKSB : 450 
0000v CF 01 FB $ CALLS #1, FREE_CHAIN ; 
000 0 EF 9E MOVAB uCBa, LOC_UCB + 4511 
69000 EF F 77 4$: MOVAB UCBQ, RO + 4524 
000 i 7 CMPL spot. R ; 
3 ‘ BNEQ 3 
COED BRW 14$ 3 
50 00000000' FF F A 5S: MOVAB UCBQ, RO > 4525 
p 1 CMPL LOC UCB, RO ; 
56 4 a8 Rov, ¢roc_ucB), Loc_ucB : 
50 0088 8 68: MOVB (Coc_uée), RAME_SIZE ; 4537 
50 45 000A Aove oi a 
2 ; A3 7$: CLRB DereéTe 1) th “ice : 4539 
4 OOOA CLRB YAAYATCABLE © ; 4540 
$ po A MOVL LOC ute) N XT_UCB > 4541 
A AA Stat NAME ze, JR > 4542 
51 80 44 coal te $2 et MOVC aye 7 (SPS, #0, R1, 185(RO)CLOC_UCBI 
8 AE 12 BO OOOBA MOVW #18, JNL_LOCKNAM > 4543 
bf AE 00B8 =C Br BE MOVAB Waetioe OCB), ci _LOCKNAME +4 : revh 


1 
CSPCJFMAS b-se -1984 216: AX-11 Bliss-32 V4.0-74 Page 17 
voas000 REMASTER_CHAIN = remaster journals of one type : $0071 382 94:19:28 SYSLOA SRESCSPCURMAS. B92: 1 ° (4) 
C4 LRQ 2s = (SP) 3 4549 
re rt cg LRQ =(SP) : 
E D ¢ CLRL = = (SP) : 
30 AE DD OOOCA PUSHL PROTO_LOCK_ID : 
AF F 000C PUSHAB JNL_LOCKNAME ; 
14 DD 000d PUSHL : 
30 AF F 000D PUSHAB JNL_LKSB : 
Oe BP bbop Crate nese) : 
000000006 90 F D CALLS nie SYSSENQ : 
D E MOVL RO STATUS : 
04 f E BLBS STATUS, 8$ + 4550 
CLRB DELETE _LOCAL_UCB : 
4C 11 O00E BRB 1 : 
18 AE 9F OOOEA 8S: PUSHAB LKSB : 4558 
0000v cf 01 FB E CALLS i RELOCK_CHAIN : 
7 30 Ab D F MOVL 4 (Loc_ucey UCB : 4559 
59 69 =A? 01 01 FF F EXT2V. #1, #1, 105(UCB), STATUS + 4560 
18 AE SF O00FC PUSHAB  LKS + 4564 
0000v CF 01 FB OFF CALLS #1, FREE_CHAIN : 
C 9 £9 001 BLBC STATUS, TO$ + 4568 
0 04 ac 0 107 MOVL guLTYP, R 3 4572 
17 15 001 BLEG $ + 4574 
04 50 D1 9100 CMPL = RO, #4 : 
12 14 0011 BGTR 9$ ; 
18 AE 9F 0011 PUSHAB LK > 4575 
56 DD 0011 PUSHL LOC_UCB ; 
0000v CF 08 FB 0011 CALLS ae. REMASTER_JOURNAL ; 
17 E 11¢ BLBS RO, 11$ ; 
5B 01 11F MOVB #1. UNAVAILABLE : 4577 
18 11 00122 BRB 11$ : 
05 50 D1 00124 9$: CMPL RO, #5 + 4578 
0D 12 00127 BNEQ 11$ ; 
18 AE 9F 00129 PUSHAB LKSB : 4580 
56 DD 0012C PUSHL LOC _uce : 
0000v CF 02 FB 1 4 CALLS #2, "REMASTER_CONTROL : 
5B : 3 133 10$: VB #1, DELETE_LOCAL_UCB : 4581 
. E 7€ 00136 11$:  cLRa -(§P) : 4588 
7E D4 001 CLRL = =(SP) ; 
20 AE DD 0013A PUSHL  JNL_LKSB+4 : 
000000006 09 04 FB 00130 CALLS #4, SY : 
30 Ab D0O 00144 MOVL 48{LOC_UCB), vce : 4598 
17 5B : 148 BLBC —sUUNAVAICABLE. 12$ : 459 
18 AF F 00148 PUSHAB LKSB : 4601 
0090v CF : FB 0014 CALLS #1, RELOCK CHAIN ; 
A A? 4 BA 1 BICB2 #4. S8(UCBY + 4605 
18 AF F 001 PUSHAB LKSB > 4609 
0000v CF FB OO15A CALLS #1, FREE_CHAIN ; 
8 1 90 0015F MOVE #1. DELETE LOCAL UCB : 461 
C : 162 12$:  BLBC DELETE_LOCAL_UCB; 13$ > 461 
: F 001 REMQUE (LOC_UCB), LOC_u¢B > 461 
: 1 MOVL LOC OCB, RO : 461 
000000006 1 JSB EXESDEANONPAGED ; 
56 « F : 13$: MOVL NEXT UCB, LOC_UCB 4624 
01 04 AC D} 1 ; 148:  CMPL YNLTYP, rt ; 1825 
1¢ 12 00178 BNEQ 6 ; 


1 
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' EF 170 MOVAB UCBMASTERQ, LOC_UCB 74 

SUH oe kT : 
2 a OR a 

0000v CF 01 Fe CALLS ‘} “CALL_RCP : 
57 00000000' i i 19 16$: REMQUE ayced, uCcB + 4640 

0 ; DO OO1A MOVL UCB, RO ; 

000000006 00 i a3 Jse XE $DEANONPAGED ; 
57 00000000' i! % 1Ap 17$: REMQUE ayCBMASTERG, UCB + 4641 

0 5 dO 001 MOVL UCB, RO : 

000000006 00 16 i868 JSB EXE SDEANONPAGED ; 

gC } 1BF BRB : 
a 163 rere ge Sates — 

28 «AE DD O01C PUSHL LKSB+4 ; 

000000006 00 04 FB o1¢8 CALLS #4, SYSSDEQ ; 
4 A €9 OOICF BLBC § SOMETHING_DONE, 19$ + 4649 

0 01 D0 0102 MOVL #1, RO : 

50 0908 =F s 0106 19% MOVZWL #2312, RO ; 
04 00108 RET > 4650 


; Routine Size: 476 bytes, Routine Base: CJFSCODE + O1AF 
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: 6 7 22] 1 XSBTTL 'REMASTER_JOURNAL = try to remaster Al, BI, AT, RU journal’ : 
: : ie § ] i "REMASTER_JOURNAL 3 | 
; 6351 4655 1 | FUNCTIONAL DESCRIPTION: 3 1 
; 6 ¢ 46 8 1 / Try to remaster this journal with the following steps: 3 7 
; 6 46 7% ° ssue re uest to the driver to collect information about this 4 
: 634 re 3 1 i ournal ron gfher no nodes n the cluster 3 
; 635 4 1 ¢: est accessibility of the devise. on which the journal file resides. 3 
3 6 $ 4660 1! " create a JSB eerve ier from he information in the Remaster Block 3 3 
3; 6 4661 1 pesect ated with th Phccis uCcB 3 3 
; 6 3 1086 1/ 4. Issue a Create Journa erty - to offecs the remastering operation. 3} 
; 6 4 1 5. If successful, move the local copy of the UCB to the queue of 3 7 
; 640 4664 1! locally mastered Journat ls. This is only K.. if we're dealing with 3 7 
3 641 4665 1! a Recovery Unit journal. 3 1 
3 ong o088 1 i THIS *ROUTING UNS IN KERNEL MODE. 3 
3; 664 4667 1 | CALLING SEQUENCE: 3 3 
: 644 $958 1 STATUS = REMASTER JOURNAL ( LOC_UCB, LKSB ); 37 
; 645 4669 1 | FORMAL PARAMETERS: 3 Y 
3 one 4670 1! LOC_UCB = address of local copy of journal's UCB. 3 3 
: 64 4671 1! LKS = address of lock status block for one chain lock 3; 1 
; 648 4672 1 | COMPLETION CODES: 33 
3: 649 4673 1 0 = We didn't remaster this journal 37 
3 oe $008 } 1 = We did remaster this journal : . 
: 636 4676 1 ROUTINE REMASTER_JOURNAL ( LOC_UCB: REF BLOCK C,BYTEJ, LKSB: VECTOR C2,LONG) ) = 37 
para io : 
3; 655 4679 LITERAL : 1 
; 656 468 DEVNAM_LENGTH = 15; 37 
: 82% tes 5 Loca af 
: 659 1e88 JS : BLOCK CJSBSC_LENGTH, BYTE], ! internal JSB 3 7 
; 660 4684 CHANNEL : ' channel to journal device 37 
> 661 4685 LOCAL_10SB : VECTOR. (2, ONG) i 1/0 status Lock 71 
; 66¢ 4686 DDB : REF Bvt TE, device data bloc 31 
: 66 4687 UCB : REF ato eK tual ucB fo r ae journal 3 7 
> 664 4688 FAO_BUFFER : BLOCK DEVNAR LENGTH, pyres: Pastté “tiem” bare 71 
; 665 4689 JNL_DEVNAM : BLOCK 

3; 666 4690 SET ee bse W_LENGTH] = DEVNAM_LENGTH, 

3; 667 4691 DSC$B- =bryeed = Q, 

3; 668 469 DSC$B- CLASS = 

> 669 469 SCSA-POINTER] = FAO_BUFFER), 

3; 6 9 4694 JNLRM REF BLOCK BYTE). ' remaster bloc 

3; 67 4695 EVNAM REF etace erie ‘ ! pointer 13 remaster block 

s 67 469 DEVNAM_LIST : BLOCK CCcdF C_MAXCOPIES+1)*8) ,B ! device name descriptor list 

3; 67 469 DEVNAM_DESC REF BLOCK C,BYTE), ! ras I olny i 2 DEVNAM_LIST 

; ore $098 STATUS” LONG; 

: 67 43 ! First et a channel to th journal. We don't need (or want) a ‘journal 

; of 4701 ! channel" using SASSJNL, since that assumes a mastered journal. So we 

3; 67 47 ¢ ! must first create the name of the journal device from the structures 

: a4 $7 we already have at hand. 

; 681 4705 ! ee8 NOTE eee We will access the 1/0 database to reee the DDB, which 

3 ° ¢ rth $ } shouldn't either move or change, so we're not locking it. 
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! this journal with the exception of write buffers etc. Next, see if we have 
access to the device on which the journal file exists. 


iF NOT TEST_DEVICE ( .LOC_UCB ) THEN RETURN 0; 

i We have access to the device. Now create the journal with this node as its 
! master. To do this, we first create a JSB from the information in the JNLRM 
structure. 

; Start out with a zeroed JSB 

CHSFILL ( 0, JSB_LENGTH, JSB ); 

Fill im what we can; the rest defaults. 


JNLRM = ,LOC_UCB CUCBSL_JNL RMBLK); 
ane = 
= 


PPLE SE 


] 
.(LOc_uce tucest NL NAMI) <0,8>; 
LOc_uCcB cycese JNL_RAMI= 
= .LOt_uUCB CUCBSE DevTYPE); 
$B = (IF TINLRM CINLRMSV_TAPJNL] THEN JSBSC_TAPE ELSE JSBSC_DISK); 
L“MASK) = .LOC_UCB CUCBSL NL MASK); 
VTMPFIL) = .JALRM CINLRMSV_TAPFILI: 

FACP) = .JNLRM JNLRASY DIFACE : 

NAM( EN = .JNLRM CUNLRASW ACPNAMLEN); 

NAM) = JNLRM CUNLRMSW_ACPRAMOFF] + .JNLRM CJNLRMSW_ACPNAMOF FJ; 


6 : 10 DDB = .LOC_UCB CUCBSL_DDB); 
6 f Create he device name, Note that JNL_DEVNAM CDSC$W_LENGTH] gets 
6 1 ' re-initialized every time the subrput tne is entered, so we can change 
? 5 ie it at will here (by using it with ‘‘outlen’’). 
690 P4714 2 $FAO ( XASCID "!AC!UW' ' etrstr 
691 P 4715 JNL_DEVNAM COSC$w_LENGTHI, i outlen 
O38 Pp 1 NL_DEVNAM, ! outbuf 
69 P 471 DDB CODBST_NAME), ' pl 
eae 18 ; -LOC_UCB COCBSW_UNIT] ); ! p2 
24 9 Get the channel. 
o98 § iF NOT SASSIGN ( CHAN = CHANNEL, DEVNAM = JNL_DEVNAM ) THEN RETURN 0; 
00 4 i Ask the driver to collect information from other 
701 5 ' nodes in the cluster so that it can become master 
aN § of the journal. 
704 P 4728 2 STATUS = $Q10W( CHAN = . CHANNEL, 
705 P 9 FUNC = 1O$_SNDJNLMSG OR IOSM_GETMINFO, 
706 P 0 10SB = LOCAL ° 
707 1 EFN = .LOCAC_EFN ); 
708 § STATUS = .LOCAL_I0SB; 
444 ? $DASSGN ( CHAN = .CHANNEL ); 
3 | See if it worked. 
f iF NOT .STATUS THEN RETURN 0; 
, i we have accumulated all the data from other nodes needed to be master of 
2 
4 
0 
; 
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bese -1 
JOURNAL = try to remaster Al, BI, AT, “520-13 93: 19: § 
JSBSB_COPIES) = o JNLRA at 3 OP 
$B B fisest- “REMASTERI = I - NAM_L nthe 
‘tes JSBSVIREMASTER 
i 2ero the descriptor tet (including a terminating zero). 


CHSFILL ( 0. (CJFSC_MAXCOPIES*8)+4, DEVNAM_LIST ); 
~JNLRM CUNLRMSV_BSKJNLJ 


en INDEX FROM 0 TO .JNLRM CUJNLRMSB_COPIES] = 1 
yesin 
i for d 
i of di 


e+ —- —- - CO CO 
2 


Pea 


k device names. 


wo 


EV 
EV 


oox 
a 
oo 


-DTYRE 


ee 
bg B ems 


DSCSB_CLA 
DSCSW_LENGT 


— CUNLRMSV_TAPJNLJ 
eae 


sk=based journals, we need to create the descriptor List 


+ ; INDEX*JNLRMSK_DSKENTLEN) ; 


j VRAH LASS a DEVNAMLEN); 
SC CDSCSATPOINTER) = OE LVNAR CUNLRMSQ_DEVNAMOFF) + DEVNAM CJNLRMSW_DEVNAMOF FJ; 


a ns se ns ss as 4 es ss Ss Ss Ls 


For gt journals, we need to supply the name of the tape 


j Journe group. 


VNAM_LIST pocee privet = DSCSK ~pryee q 
IST COSCSB-CLASS) = DSC$K"C 
IST CDSCSWILENGTH) = SONAR” Cincy TAPGRPLEN); 
IST CDSCSA[POINTER] = .JNLRM 


JSB is moreey created 
Now create the journal with this node as its master. 


STATUS = CJFSCREJNL ( CHANN Le JSB ); 
If NOT .STATUS THEN RETURN 


JNLRMSO_ TAPGRPOFF + JNLRM CJNLRMSW _TAPGRPOF FI; 


Successfully remastered lock. Move the UCB copy to the master List. 


REMQUE -LOC_UCB, LOC_UCB ) 
INSQUE ( .LOCZUCB, UCBRASTERG ); 


Deallocate the remaster block, if any. 
RELOCK. CHAIN ( ,LKS 


UCB = <LOC_ucB fuCcB bal “Lima; 
UCB CUCBSL™ ~JNL_RMBLK 


N14 
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; 798 4 § EXESDEANONPAGED ( .JNLRM ); 
; 799 4 FREE CHAIN ( .LKSB ); 

; 800 4824 RETURN 1; 

; 801 4825 END; 


~PSECT CJFSPLIT,NOWRT,NOEXE, SHR, PIC,2 

41 21 14 P.AAD: ASCII \!AC!UW\<0><0> 

10 006 0001 P.AAC: .LONG 17694720 

§0060008" 0020 «ADDRESS P.AAD 
~-EXTRN SYSSFAO, SYSSASSIGN 
eEXTRN SYS$QIOW, SYSSDASSGN 
«PSECT CJFSCODE,NOWRT, SHR, PIC,2 
OFFC 00000 REMASTER_JOURNAL: 

«WORD 


00 00 57 55 21 43 


lt ns a _ i ss ss ts 9 2 9 2 


Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 4676 
SE FF7C CE 9E 0000 MOVAB = 3 .. ; 
16 AE OF 00 00 MOVL #15, JNL_DEVNAM + 4693 
18 AE 1¢ AE i 008 MOVAB FAO.BUFFER, JNL_DEVNAM+4 : 
5 4 AC 00 0001 MOVL LOC UCB, R? + 4708 
50 8 A? DO 00014 MOVL  40(R7), DDB ; 
7E 4 A? 3C 00018 MOVZWL g4(R7) -(SP) : 4718 
14 AO 9F O00IC PUSH 0(DDBS ; 
1¢ AE 9F OOOTF PUSHAB JNL_DEVNAM : 
20 AE 9F 000 : PUSHAB JNL~DEVNAM ; 
00000000" EF 9F 000 PUSHAB P.AAC ; 
000000006 00 5 FB 000 8 CALLS #5, SYSSFAO ; 
—E 7C 000 CLRO. 0. = ¢§P) + 4722 
08 AE i 00 PUSHAB CHANNEL : 
20 AE OF 0037 PUSHAB JNL_DEVNAM : 
000000006 90 4 FB 003A CALLS #4, ~SYS$ASSIGN ; 
6 0 E 0041 BLBC =_«aRO,._«*1 : 
7E 7C 00044 CLRO 0. = (§P) + 4731 
7E 7¢ 0046 CLRQ = = (SP) : 
7E 7C 0004 CLRQ 0 = (SP) ; 
7E 7C 000A LRQ = (SP) ; 
ac AE 9F 0004C SHAB LOCAL_10SB ; 
7E 10 BF 3C 0004F MOVZWL #4099; (SP) : 
7E 8 AE 3¢ 4 MOVZ2WL CHANNEL, -(SP) 3 
7E 00000000" EF 9A 8 MOVZBL LOCAL EFN, -(SP) ; 
000000006 f F F CALLS #12, SYS$Q10W ; 
D MOVL STAT : 
2c. AE p 9 MOVL LOCAL_IOSB, STATUS ; 4732 
—E 3¢ MOVZWL NEL, =< : 47 
000000006 0 1 fF CALLS #1, SYS$DASSGN : 
5 7 BLBS Atus, : 4737 
011 7A 1$ BRW ; 
DD D 2$ PUSHL R + 4743 
0000v CF 1 FB F CALLS #1, TEST_DEVICE : 
F3 6 : BLBC RO, 1 F 
00SC BF 00 bE om. C 7 MOVCS #0, (SP), #0, #92, USB > 4751 
S% orde 5 ny") MOVL 260(R7), JNLRM : 4755 
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4 AE B8 C7 9B 5 MOV7BW 184(R7), JSB 3 475 
a ee ; $6 mOVAB 188 (80): 438 4 : th 
— A 41 A? A MOVB  65(R7), JSB+10 + 475 
05 eg E Ab BBC i, Ve CJNLRM) , 3$ + 475 
5 p AB MOVL #2. R ; 
A BRB 4 : 
50 1 ; BO 3$: MOVL #1, RO : 
SF OA 3 B3 4$: MOVE RO seer! : 
40 AE 00D4 D B MOVL  212(R7), JSB+12 + 4760 
50 OC Ab 01 EF 08 EXT2V #2, #1, 12¢JNLRM), RO + 4761 
” 8 0c y oF EP ; yy ; : a" 4 iss’ RO + 4762 
60 AE of 6 FO Str INSV RO, #6, #1, JSB+44 : 
64 Ar 16 Ab 005 MOVW (JNLRM), JSB+48 : 46763 
5 14 A6 3C OOODA MOVZWL 20(JNLRM). RO + 4764 
68 AE 14 A046 ; OODE MOVAB (RO) CUNLRM yse+s2 ; 
6 AE OF Abd 90 O00E4 MOVB 4(JNLRM), JSB+ + 6765 
AE 04 «AE : 00E9 MOV DEVNAM List, JSB+68 + 4766 
61 AE 4 O0E BISB2 #4, JSB+ + 4767 
0c 00 6E 00 C OOF movCS #0, (SP), #0, #12, DEVNAM_LIST + 4771 
2 OC Ab 9 OOF9 BLBC 12(JNLRM), 7$ + 4772 
E Ad 9A O00FD MOVZBL 14(JNLRM). R5 + 4774 
53 or CE 00101 MNEGL #1, INDEX F 
1 11 00104 BRB 6$ : 
54 18 A64 7E Bat 6 5$: MOVAQ 24(JNLRM) CINDEX], DEVNAM ; 4781 
5 4 AEG re 01 MOVAQ DEVNAN LISTCINDEX], DEVNAM_DESC ; 478¢ 
wo a 010E 8F BO 0011 MOVW #270, 2(DEVNAM DESC) : 478 
& 2 A 80 0116 OVW  2(DEVNAM), (DEVNAM_DESC) + 4785 
5 64 C OO11IA MOVZWL (DEVNAM) : 4786 
04 A2 50 54 Ci 0011D ADDL3  DEVNAM, RO, 4(DEVNAM_DESC) ; 
0000v CF 00 FB 001 é CALLS #0, MUMBLE + 4790 
DB 53 F2 001 68: AOBLSS R5, INDEX. 5$ + 4774 
1 oc Ab 1 €1 001 é $: BBC #1. 12(JNLRM), 8$ + 4793 
06 AE 010E 8F 60 4 MOVW #270. DEVNAM_LIST+2 + 4800 
04 af 1A A6 BO 00136 MOVW § (JNLRM), DEVNAR_LIST : 4802 
: 18 A6é 9E 00138 MOVAB 24(JNLRM), R > 4803 
31 60 3 0013F MOVZWL (RO), R1 : 
08 AE 1 a D142 ADDL3. RO, R1, DEVNAM_LIST+4 ; 
34 AE OF O14 8$: PUSHAB JSB + 4809 
04 AE 9F OO14A PUSHAB CHANNEL ; 
000000006 00 FB 00140 CALLS a, CJFSCREJNL ; 
38 DO 00154 MOVL R STATUS : 
157 BLBC STATUS, 9$ : 4810 
04 AC 67 OF 0015A REMQUE (R7), LOC_UCB > 4814 
00000000" EF 4 BC OE 001 INSQUE @LOC’UCB, UCBMASTERQ + 4815 
8 AC DD 001 PUSHL LKSB + 4819 
0000v cr 01 FB 001 CALLS #1, RELOCK_CHAIN ; 
0 4 AC DO 001 MOVL Lot UCB, RO : 4820 
50 0 Ad D0 001 MOVL 48 (RO), UCB : 
0104 D4 7 CLRL  260(UCB) > 4821 
50 6 00 17A MOVL JNLRM, RO + 4822 
000000096 01 170 JSB EXE SDEANONPAGED ; 
0000v CF Oy PB OOt Chere «= ST FREE. CHAIN ewe: 
i it 06 1 MOVL #1. RO ™ + 4824 
4 0018E RET ; 


ana at nk i a ak tk at a es a ss a ss Ss Ss Ss Ss SS SY YH SS SS 
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50 pe Oot 8t 9$: cLae RO 4825 


; Routine Size: 402 bytes, Routine Base: CJFSCODE + 0388 


Pn a Ss a ss 8 2 ss 


—- ————_-_____ 
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H 4 : } BSBTTL *REMASTER_CONTROL = remaster control journal/reallocate/mount for jnling' : 

; 3 4 | REMASTER_CONTROL ; 
; 80 4830 1 | FUNCTIONAL DESCRIPTION: 71 
; 808 4831 1! For a particular control journal, walk through the ies of allocated ; 1 
; 809 4 § 1! devices and perform the necessary allocate/mount functions to make $ 7 
; 810 4 1! them available for journal ng. 3 
; 811 4834 1! THIS ROUTINE RUNS IN KERNEL MODE. 3 7 
3 \¢ 4835 1 ! CALLING SEQUENCE: 3 
: 1 4 § 1! TATUS = REMASTER_CONTROL ( LOC_UCB, LKSB ); 3 7 
>; 814 4 1 ! FORMAL PARAMETERS: 31, 
; 815 4 3 1! LOC_UCB = address of local copy of this control journal's UCB 3 1 
; 816 & eB LKSB = address of lock status block for the chain lock 3 
; B17 4840 1 ! COMPLETION CODES: 1 
; \8 ? *) : 1 = success : } 
; 0 tpes 1 ROUTINE REMASTER_CONTROL ( LOC_UCB: REF BLOCK C,BYTEJ, LKSB: VECTOR ([2,LONG] ) = ; 1 
3 ; 1 tate BEGIN : } 
: 8 § rr} i Remastering a control journal. 31 
Bo ag if 
> B26 re} i Get ADBs from Allocated Device List for this control journal and, if the 3 
: 827 4850 \ device indicated is ‘not allocated’ and not mounted’, issue an $ALLUDR 3 7 
3 : 3 $32) service to allocate the journal device. ; ! 
; 830 1888 i As each ADB is processed, get rid of it by setting the flag ADBSV_PURGED. 21, 
; 831 4854 ! Here, ‘'processed’’ means either successfully allocating and /or mounting, or a | 
3 HT 4855 ! discovering that somebody beat us to it. No locks are used at this level to i! 
3 8s $328 ! arbitrate access to these devices, since that is handled properly by ALLOC 3 i 
3 te t82 and MOUNT anyway. : 1 
; B34 4859 LOCAL > 1 
. ¢ 4860 EF BLOCK C,BYTE), ! allocated device List 3} 
; te 4861 LOC_ADL REF BLOCK C,BYTEJ, ' local copy of ADL 7 1, 
: 9 $866 EF BLOCK C,BYTEJ, ! current alloc dev block 31 
3 0 486 ADL_LINK, ! addr of Link from previous ADL 3% 
; 1 4864 : REF BLOCK C,BYTE), ' addr of actual UCB Pat 
; 4g 4865 DEVICE_NAME : BLOCK C8, vie i descriptor of device name ‘el 
3; «684 486 PRESET ( CDOSCSW_LENGTH) = 0, 3 
3 6844 486 peso erred = 3 1 
> 845 4868 DSC$B-CLASS) = 05, 4 
3 § 4 8 STATUS : LONG; : 1 
: Baa 4871 5 LABEL i 
; 49 487¢ ADB_LIST; ! block defines Linked ADBs i] 
; 851 4 r Lock the chain so we can get the ADL ; 
; 38 é , RELOCK CHAIN ( .LKSB ); ; | 
: 855 487 i Make a copy of this ADL and all extensions thereto, and :1 
; 3$ 4 A ' mark all the ADBs in the 452 soercege while vere about 3 1 
; «85 & ? ! it. They will be reused if and when we manage to allocate 37 
3 4 ? some of these devices. : ! 
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UCB = .LOC_UCB on “LINK; 

ADL = .UCBCUCB Lah agli 

oy et = LOC_uCB tute L ~JNL ADL); 
BEGIN: 


i Process single ADL...copy the whole thing into a 
i buffer and point to it from our copy of the UCB. 


STATUS = EXESALONONPAGED ( .ADL CADL$W S176); LOC_ADL ); 
cHSHOV E ( .ADL CADL$W_SIZEJ, .ADL, .LOC_ADL 5; 


If i § 4 Bey ve set up pointer from the UCB 
If multiple ADLs, set up Link in the “anlicate copy. 


ADL_LINK = .LOC_ADL; 
Mark all ADBs for this ADL available. 


ADB = .ADL + so CADL$W_FSTADB); 
gave COUNT FROM 7 TO .ADC ADLSW_ ADBCNT) 
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BEG 
ADB “tapesy -PURGED] = 1; 
ADB = .ADB™+ ADBSK tenga: 


33 


(G9 Od Gd Cd Cd CD CD Cd CD OD CD CD CD CD CD 


the UCB chain. Locking from here forward will be based on normal allocate 
and mount protocols. 
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4 
4 
4 
908 ; 
909 ! 
319 Next ADL (if any)... 
889 gg IF (ADL = .ADL CADLSL_LINK]) EQL 0 
890 91 THEN 
91 914 } 
3 915 ! If no extension, we're done 
9 318 : 
94 91 EXITLOOP 
895 318 LSE 
96 91 ! 
97 920 i Repeat the process with the next ADL. Keep track 
899 1 of where the forward Link needs to go. 
: ADL_LINK = LOC_ADL CADLSL_LINK]; 
sf ¢ ND; ! WHILE 1 DO 
4 § At this point we have mad= a copy of gach ADL for this control prrurnet and 
Linked them to our copy of that UCB. We have also marked all the ADBs for 
905 8 this control Journal as unused (purged) so they can be reused. We can release 
? 
§ NCB CUCBSV_ um. yeast = 0; 

319 (REE. CHAIN’ ( .CKSB ) 
at 5 Yett sh through our ka of the ADLs and reallocate/remount those devices 

14 i 
314 3 LOC em S. ~-LOC_UCB CUCBSL_JNL_ADLIJ; 
916 WHITE 


We couldn't allocate all devices in this ADB list. We should 
Gpastecete those which were allocated, so someone | fie, nee 6 
ance. Those which were allocated successfully will h 
the PU RGED bit set; we deallocate these, and set the PURGED bit 
n the rest. 


UNTIL .ADB EQL 0 
DO 


Sesee 


CSPCJFMAS 4 AxX-11 BLi 
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mo emis 

; 31 ibe Process one ADL. 

: 921 4944 ive = .Loc ADL + .LOC_ADL CADL$W_FSTADB); 

: 4 § $302 pack COUNT”FROM 1 TO TLOC_ADL : Bleue ADBENT) 

Ho Rg pew 

; ; $ 4349 4 Process one ADB. 

: 9 : 6381 4 LOCAL 

3; 9 4 § 4 ADB STATUS : LONG, ! "got whole vol set'’ or nay 
; 4 » $327 ? FIRST_ADB : LONG; i first ADB of vol set 

: 9 é 4955 4 FIRST ADB = _.ADB; 

: 9 4956 4 ADB STATUS uccess 

: 4 ¢ rhe 4 ? fl CADE ADBsi -MOUNTED]) AND (NOT .ADB tabssy VPURGED)) 

: 9 4959 4 

: i r+ ¢' 2 ADB_LIST: 

: 939 4966 5 BEGIN 

: eet 1387 : eres -ADB EQL 0 

oe eS perm 

: 944 4967 6 i This ADB is active. Allocate the device. If Linked with 
: eee p44 ° other ADBs, allocate them as well. 

; 303 4970 6 DEVICE_NAME [DSC$W_LENGTH] = .ADB [ADBSB_NAMELEN); 

; 948 4971 6 DEVICE_NAME DSCSA, POINTER] = ADB$B_DEVNAM); 

; 949 4972 6 et = CJFSALLJOR ( DEVICE_N ); 

; 950 497 6 Nol STATUS hal i ADB. west WITH ADB_STATUS = 0; 

: +h sare e Ae ADBS$V_PURGED 

3 $38 43° 3 | Get next ADB in this volume set, if any. 

3 935 4978 : Ape = .ADB CADBSL_LINK); 

; $37 4980 ENDS ! ADB_LIST block 

: 959 9 4 i Done walk ing one List of Linked ADBs. See if we were successful 
; +¢ 4 ? with all devices therein. 

: 96 985 4 ADB FURST ADB: 

3 368 4 If T .ADB_ STATUS 

é THE 

; 4 

3 4 

; 4 

; 4 

; 4 

F} 4 

; 4 

; & 


PN tt ot 


SSF 


woovono 


~~N~ 


voesb00 REMASTER_CONTROL = remaster control journal/rea 18-00-1964 + 18; 4 SYsuoaesR tic scl Yenns 69251 a iB 


7% 499 BEGIN 
ore 4 4 ; if -ADB CADB$V_PURGED) 
378 ° WER cry 
3f8 BENT EE NAne DSC W LENGTH) *s ADB papese NAMELEN); 
97 tft NAME LDSCSA POINTER] = ADB CADBSB_DEVNAM); 
$8 Ag DEALJDR ( DEVICE_NAME ); 
9 ELSE 
388 ADB CADB$V_PURGED] = 1; 
984 ADB = .ADB CADBSL_LINK]; 
3 5 , END; 
9 1 i Next ADB. 
988 1 : 
989 1 ADB = .FIRST_ADB + ADBSK_LENGTH; 
444 : ; END; ! Process ADB 
99 1 Proceed with the next ADL, if any. 
994 1 if (Loc ADL = .LOC_ADL CADLSL_LINK]) EQL 0 THEN EXITLOOP; 
995 1 END; ! Process ADL 
399 i Done handling this control journal. Deallocate the memory we allocated for 
oe our copies of the ADLs. 


LOC_ADL = .LOC -UCB CUCBSL_JNL_ADL); 
UNTIL .LOC_ADL™EQL 


Sess 
OOOCOCCCCCCSooO 


NOAA AN 9 ODN NE WIN OOD NOU EWN OOO NOAU EWN OO CONOU LS Ww 


eae Loc f, Cant St LINK]; 
EXESD ANONPAG GED -< <LOC_ADL 5; 

LOC 3 L = .ADL; 

END? 

Delete the control journal itself. 


RELOCK CHAIN ( 
“L LOC UCB tuces.. “tink; 
DELETE 


i. ives TPO Eas’ RE REFCY’ NEQ 0 
“uce CUCBSV_DELETEUCB) = 1 


DELETE_UCB ( .UCB ); 
FREE CHAIN” ( .LKSB ); 


That's all 


RETURN 1; 
END; ! Process control journal 


Se Se Ge Se Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Se Ge Ge Ge Ge Se Ge Ge Se Gs Ge FF Se Se BF Ss Se Se Ge Se Se Se Se Se Se Fe SF See Se Be Se Se Seas 


casita adie dik hemecamencenac gaa aE aneeamenaeeataeeaat itien nana 
m ° 
= 


a a = = ow ss ss 


FUN OOO NO Ufwn—o 


POPPIN) 2 2 


OFFC 00000 REMASTER_CONTROL: 


H 2 
voesb00 REMASTER_CONTROL = remaster control journal/rea loekenciond Soiisice | Pets tonPshes cea eats 768. 


,WOR paye Ree oR3,R4,R5,R6,R7,RB,RI,R10,R11 


0c g2 SUBL : 

04 AE CLRO devic _NAME : 

Sf at DD PUSHL LKSB : 

0000v CF 01 F CALLS #1, RELOCK_CHAIN : 

a 9 ac D MOVL L é ye , RB : 

A Ag D 1 MOVL (RB), UCB : 

7 3 CA 18 MOVL 1 ocuc6) ADL ; 

; eta é 1$ MOVIUL BIA RE mee : 

000000806 JSB EXESALONONPAGED : 

§ D ¢ MOVL RO. STATUS ; 

: F MOVL. R2. R : 

69 6 08 A ¢ MOVC3 BC(ADL), (ADL), (L o¢ ADL) ; 
5 p HOVE L0¢ AD. (ADL{ LINK : 

6 4 «OA g A MOVZWL 20(ADL). ADB ; 

é 5 : ADDL2 ADL ADB F 

1 12. A? ¢ 4 MOVZWL 18(ADL), R1 : 

30 d 4 CLRL COUNT F 

11 00047 BRB $ ; 

04 Ab 4 8 49 2$ BISB2 #4, 4(ADB) : 

. £ 4p ADDL2 #26, ADB : 

FS 1 F3 00050 3$ AOBLEQ R1 COUNT » 2s ; 
7 0 0 34 MOVL ADL) ; 

5 1 7 BEQL ; 

58 9 D 0059 MOVL Be ag mi oe ; 

C4 11 0005¢ BRB ; 

69 AA 2 8A O005E 4s: BICB2 We 105 (UCB) ; 

08 ac DD 006 PUSHL ; 

0000v CF 01 FB 00 CALLS i FREE_CHAIN ; 

9 00A0 «CB p 6A MOVL 166 cR (RB) Pat ADL : 

é 14 Ad ¢ O06F 5$ MOVZWL ; 

36 59 g 3 ADDL2 tOC ; 

5 12 Ad 3C 00076 MOVZWL ote RS ; 

54 D4 OOO7A CLRL £0 F 

B 11 0007C BRB 4 ; 

53 6 D 43 6$ MOVL ADB, FIRST_ADB ; 

1D MOVL #1, ADB STATUS ; 

30 04 Ag ie BBC a, 4(ADB), 9$ ; 
2B 4 Ab E 9 BBS 4(ADB), 9$ ; 
ie nan : 

04 AE C A6 9B 0009 MOVZBW Tecapeo. DEVICE_NAME ; 

8 AE D AO 9E MOV 13(R6), DEVICE_RAME+4 ; 

4 AF F C PUSHAB DEVICE NAME ; 

000000006 00 Q FB F CALLS #1, CJFSALLUDR ; 
E 0 D A MOV RO STATUS ; 

4 8 A BLBS STATUS, 8$ ; 

AC CLRL AB stAtus : 

04 Ab 4 8$ B1SB2 Re 4 (ADB) ; 

56 p VL  (AbB), ADB ; 

B BRB 7$ 3 

56 D 9$: MOVL FIRST_ADB ape ; 

F BC BLBSsoA 8. STATUS, 13$ ; 

BF 10$: BEd 1 ; 

16 04 Ab 2 €£ C1 #2, 4(ADB), 118 : 


2 
voos000'® REMASTER_CONTROL = remaster control journal/rea 1$-se0-1964 94:19:38 SYSLOA’SRe capcve : mas 692; ~/ a 


BR 
8 
D 
C 


ELO 
1, U 
000000006 00 gLere. 10D8 


Cc 


66 AA 102(UCB) 


Oe wo De: sor 


8 
18$: PUSHL 


000000006 00 DELETE_UCB 


22 =C -2— OBC far — > 
—— K $M C$" ON) | OO" XO_u 


4 A Cc oA C6 WOvzBu (ADB), DEVICE_NAME ; 
8s A or Ks ee f HOVAB 18Re). yevice. NAME +4 ; 
000000006 00 : Ds CALLS is COFSDEALUDR ; 
06 =A 4 DC 1 BISB2 #4, 4(ADB) : 
3 4 o6 138; fbr (Abe), ADB 
DA i E BRB 108 ; 
6 1 OA E 138 MOVAB (R3), ; 
: ; aH ES 8 eee ce tha 2 
oA USE RE ae : 
59 00A0 C8 ° F 158: MOVL 160 (R8), LOC_ADL + 5023 
57 6 0b Ooore Reet 178 ADL), ADL : 308% 
0 9 0 OFF MOVL LOC_ADL, + 5028 
000000006 : 1 108 JSB EXESDEANONPAGED : 
59 37 p HOVE » LOC_ADL ; oe 
08 AC D 17$:  PUSHL : 50 
0000v cf Of F 1 CALLS CK_CHAIN : 
A 30 AB OD 1 MOVL R8), UCB + 5035 
5A 1 PUSHL : 5036 
01 F : 
Bo Bie : 
1 8 ; 
09 1 B ; 
AD D : 
01 F F : 
AC D : 
I 2 


FOS "WWD 9 OW 9 "OA OOW0—"Wwoowunm 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


: 
: 
: 


08 19$:  PUSHL $8 5042 
0000v cr CALLS : FREE CHAIN a8; 
if RET ; 5047 


; Routine Size: 322 bytes, Routine Base: CJFSCODE + 051D 


2 

CSPCJFMAS b-se -1984 01:16: AX-11 Bliss-32 V4.0-74 Page 31 
Gousd00 TEST_DEVICE = test accessibility of journal fil i ~$007 1382 94:18:18 SYSLOA.SRC Cob CUE ARS B%2:1 . 3} 
; } re } BSBTTL *TEST_DEVICE = test accessibility of journal file device’ 
3 : i TEST_DEVICE 
3 1 § 1 ! FUNCTIONAL DESCRIPTION: 
3 1 1! Determine if the device on which this journal's journal file 
: 1 ¢ 4 1! exis : can be accessed from this node. We do this be testing to 
, 5 ig see we can do a GETDVI on the device. 
: 1034 § 1! THIS ROUTINE RUNS IN KERNEL MODE. 
3 18 5 1 ! CALLING SEQUENCE: 
3 1 é 1! STATUS = TEST_DEVICE ( LOCAL_UCB ); 
3 1 8 1 ! FORMAL PARAMETERS: 
3 1 60 1! LOCAL_U = copy of the journal's actual UCB. 
3 7 be) 1 ! IMPLICIT PARAMETERS: 
3 1040 o¢ 1! 1/0 data base 
3: 1041 065 1! JNLRM array pointed by the UCB. 
3 ek bee 1 ! COMPLETION CODES: 
; Ser bee } SSS_NORMAL if the device is accessible 
3 ek 037 1 poutine TEST DEVICE ( LOC_UCB : REF BLOCK C,BYTE] ) = 
3 194? 069 FECL STERLIST s 
> 1049 071 ITMLST$W_BUFLEN = 0.16.0 ' ! item List buffer Length 
; 1050 O76 ITMLSTS$W_CODE = [2,0,16,0], ! item List item code 
; 1051 7 ITMLSTSA_POINTER = 0.3 0 ~ ! item list buffer address 
3 1928 Boe ITMLSTSA_RETLEN = (8 ! item List return length address 
; 1053 O79 ITMLSTSL_-TERNZERO = £12,6,32,05 i terminating zero for item List 
: 1055 O79 LOCAL 
; 1056 078 DEVICE_NAME : BLOCK (8, Te ! descriptor of device name 
: 1057 079 PRESET ( COSC$W_LENGTH = 0, 
3 1 28 080 443s Mat = 
3; 105 33) DSC$B_CLASS] = 0), 
3; 1060 0 ; DEVICE ST LOCK 16-8NtE ‘ ' actual device name string 
; 1061 8 CLUSTER_DEVNAM_STR : BLOCK (16,BYTE), ! array to receive name from GETDVI 
3 1006 8 4 CLUSTER_D BLOCK (8,BYTE ! descriptor of returned name 
31 85 PRESET ( COSCS$W_LENGTH) = 0, 
: 1 4] 443 Mat = 
3; 1065 DSC$B_CLASS) = ° 
: 1066 088 ITMLST BLOCK (4*4,BYTEJ ! item List to receive cluster devnam 
31 89 FIELD (¢ ITEM_LIST ) 
3 1 90 PRESET ( 4 TALS T eM BUFLEND = 16 
:1 91 TMLST$W~CODE = DVIS_FULLDEVNAM, 
; 1070 85 TALSTSL_TERMZERO) = ° 
3; 1071 9 JNLRA REF BLOCK L,BYTE), ! addr of remaster block 
. | a 94 ucB REF BLOG BYTE), ' actual UCB for this journal 
> 107 95 LOCAL_10SB VECTOR £2,LONG), i Local i/o status block 
3 ! if i STATUS; 
3 1 4 CLUSTER_DEVNAM COSCSA Pointen) = CLUSTER_DEVNAM_STR; 
3 al = STR; 

107 ITMLST Fi Tm sTsA POINTER CLUSTER_DEVNAM_STR 
3 ! A \ ITMLST ITMLSTSA_RETLEN] = CLUSTER_DEVNAM; 
: 1 ' § ; First, we pick up a copy of the remaster block. 
> 1082 1 UCB = .LOC_UCB CUCBSL_LINK); 


K 2 
voab00 TEST_DEVICE = test accessibility of journal fil Iecsepetone Soiisiee — FeNsLaaBhdegcea Meats 7h85. Page 3 vO 


3 } } 5 JNLRM = .UCB CUCBSL_JNL_RMBLK); 

3 1 5 } Now create a descriptor to the device name. 

; } if SELECTONE 1 OF 

2 5 11 -JNLRM CUNLRMSV_DSKJNLJ J: 

3 3 11 BEGIN 

: 1091 11 ! 

3: 1 85 114 ! We have a disk journal. 

3; 109 115 ! 

3 1094 118 LOCAL 

3; 1095 11 JNLRM_DEVICE : REF BLOCK C,BYTE); 
8 1998 1'8 JNLRM_DEVICE = Sty + JNLRMSK_DSKJNLLST; 
31 11 DEVICE_NAME CDSC$W_LENGTH] = .JALRM DEVICE CJNLRMSW DEVNAMLEN]; 
; 1998 } 9 DEVICENAME DSCSA_POINTER] = .JNLRA + .JNLRM_DEVICE CUNLRMSW_DEVNAMOFF); 
8 1189 1 § C.JNLRM CUNLRMSV_TAPJNL) J: 

3 1101 1 BEGIN 

: 1108 124 ! 

: 110 125 ! We have a tape journal. 

3 1104 1 § ! 

3: 1105 1 MUMBLE (); 

3 1108 128 END; 

3 110 129 TES; 

; 1108 130 ! 

: 1198 : 1 Get the information about the device. 

37111 P 51 | STATUS = SGETDVIW( DEVNAM = DEVICE_NAME, 

3 Wie e 2} 4 ITMLST = T 

2111 P 5135 = LOCAL_foss, 

7 1114 51 § EFN = ,LOCAC_EFN ); 

3 133? 1 f STATUS = ,LOCAL_10SB; 

$ Wi 139 ! Do we need to do anything with the name? 

3: 1118 ayey ! 

3 1119 141 RETURN .STATUS; 

3 1120 5142 END; 


-PSECT CJFSPLIT,NOWRT,NOEXE, SHR, PIC,2 
“ly BR to : 
-EXTRN SYSSGETDVIW 
-PSECT CJFSCODE,NOWRT, SHR, PIC,2 
003C 00000 TEST_DEVICE: 
. SP 


‘ Saye R R4,R5 
5E AE 9E ~72(SP 
ae ee PE atau 
08 AE 00000000" EF 1 H' C mOovCS ie. P.RAE, ITMLST 


R3 
S 


—f2Qm 


cca 


3; Routine Size: 


44 AE 
05 


115 bytes, 


Routine Base: 


¢ (OA AE 15 
eee | 
ca | 
og a it 
HB 
oly SH BR 
SL Bie = 
0 AE OF g 
1 AE 9F 
ee ie 
7E 00000900' + BA 0061 
mene: Bor 8 on 
04 00072 


CJFSCODE + O065F 


2 
TEST_DEVICE = test accessibility of journal fil 1$-Se0-1984 94:19:28 


AX-11 B 


Li 4.0-74 
SYSLOA.SR 


ot 
cs 


ss-32 V 
RCICSPCJFMAS .B 2:1 
CLUSTER_DEVNAM_STR, CLUSTER_DEVNAM+4 
CLUSTER" DEVNAM-STR ITMLST+ T+ 
CLUSTER=D YNAR, ITALST+ 
C yCB, R 
in ), UCB 
(UCB) JNL RM 
CINERAS 1 
(R1), JNLRM_DEVICE 
(JNLRA_ DEVICE), DEVICE _NAME 
NLRM_BEVICE), R 
, , JNCRM, DEVICE_NAME+4 
#1, 12(JNLRM), 2$ 
#0. MUMBLE 
-(§P) 
(SP) 
LOCAL_10S8 
ITMLST 
DEVICE_NAME 
LOCAL fg (SP) 
48 $GETD 


Bear” "TOSB. OS TATUS 


Page 3 
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VMI UU 


BeBe Se Ve Se Ge Ge Se Se Ge Ge Be Be Ge Se Se Ge Ge Ge Be Se Ge Ge Ge 


mM 2 
vou-b00 RELOCK_CHAIN = convert chain lock to exclusive met 93:19:48 SYSLOA*SRESCSPCUFMAS 2:1 fave B VAX: 


° ‘ oe 

; i § 122 } peerre RELOCK_CHAIN = convert chain lock to exclusive’ MAC! 
; 1; ¢ 192 ! RELOCK_CHAIN 

11 g 123 1 | FUNCTIONAL DESCRIPTION: 

3 11 138 1! Common routine te convert the lock on the UCB wy indicated 

: 1; 3 13 : by the accom an ng lock status block from Null to Exclusive mode. 
> 1130 1 1 THIS ROUTINE RUNS IN KERNEL MODE. 

3 1131 1 § 1 ! CALLING SEQUENCE: 

3; 11 1 ss RELOCK_CHAIN ( LKSB ); 

3 11 154 1 ! FORMAL PARAMETERS: 

3 11 185 1! LKSB = address of lock status block for this UCB chain. 

3 1135 1 § 1 ! COMPLETION CODES: 

133 188 1 i 

: i 3 133 1 ROUTINE RELOCK_CHAIN ( LKSB: VECTOR C2,LONG] ): NOVALUE = 

: 1140 P 5161 © SENQW ( LKMODE = LCKSK_EXMODE, ' exclusive lock 

3 1141 P 196 LKSB = .LKSB, ! specify which lock 

: 1336 P 516 FLAGS = LCKSM_CONVERT, ! Lock conversion 

3 114 2188 FN = -LOCAC_EFN ds 

> 1144 165 RETURN; 

3 1145 5166 END; 


-EXTRN SYSSENQW 
0000 00000 ROLECE AM 


WOR Save nothing 3; 5159 
7E 7C 00002 CLRQ = = (SP) + 5164 

7E 7C 00004 CLRQ  =(SP) : 

7E 7C 000 CLRQ 0 =('S ; 

7E 02 7D 0000 OVO #2, =(SP) ; 

04 AC DD 00008 PUSHL LKS ; 

05 0D 0000 PUSHL #5 ; 

7E 00000000' EF 9a 0001 MOVZBL LOCAL_EFN, -(SP) ; 

000000006 00 B FB 0001 CAL #11, SYSSENQW ; 
04 O001E RET > 5166 


3; Routine Size: 31 bytes, Routine Base: cJFSCODE + 06D2 


Be Ge Se Ge Ge Se Se Se Se Ge Se Se Se Se Se Se Sees Se Sse SeSe teas 


cca 


MEUM OOODNOULS WI —O0OO~ 


vv 


11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
1 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 


PR SE ee ee ee tee ee 


oven 


3; Routine Size: 


ww 


a 


FREE_CHAIN 
} ) #8 BSBTTL "FREE_CHAIN' 
1 } i "FREE CHAIN 
711! aa DESCRIPTION: 
17 ! Con erts lock indicated by LKS® «0 null. 
174 1! THIS ROUTINE RUNS IN KER*2L MODE. 
175 1! CALLING SEQUENCE: 
176 1 i FREE CHAIN ( LKSB ); 
177 1 | FORMAL PARAMETERS: 
178 1 / LK = address ov lock status block for the indicated lock. 
: 4 ! COMPLETION CODES: 
1 1 1 leo 
i 1 ROUTINE FREE_CHAIN ( I1%sB: VECTOR C2,LONG] ): NOVALUE = 
184 2 IF NOT SENQ ( I.KMOUE = =_ LCKSK_NLMODE, 
185 KSB = .LKSB, 
136 FLAGS = LCKSM_NOQUEUE OR LCKSM_CONVERT ) 
18 THEN 
188 @UMBLE (); 
189 REYURN; 
190 1 END; 
0000 00000 FREE_CHAIN: 
«WORD Save nothing 
7E 7C 0008 CLRQ -(SP) 
7E 7C ; CLRQ -(SP) 
7 7C¢ 8 CLRQ -(SP 
7E 06 7D 000 mova #6, -(SP) 
04 AC bp 9008 PUSHL LKS 
000000006 oe fe 0016 Sees at. SYSSENG 
8 i EB 601 LBS 13 
0000v CF 00 FB Baie CALLS #0, MUMBLE 
04 1F 1$: ET 


32 bytes, Routine Base: CJFSCODE + O6F1 


N 2 
aaSep-19be $S:19:58 — ESVsLoncsnedcsecurA 


roe 


cscung 


_ 


PWN" OOONOUS Wr 


ee ee ee a ee ee a a ed 
POPP Nfony 3 2 a 


MEW —O OONOULSWNR— 


3; Routine Size: 


RESTART. 


1 


— td td 


RMN 3 3 3 S BQO OOOO ODO 000000 


FUN" OC OONO UENO ODA WN OO OONOUS wn 


5 
5 
P] 
P) 
5 
5 
5 
5 
5 
5 
5 


=PONIWIWNIIORononononononononony 3] 2 3 
- 


AX-11 Blis ri V4 


3 
-Sep-1984 216: 
BASE - reschedule suspended base thread 18-00-1944 94:19:48 SYSLOA.SRCICSPCJF 
BSBTTL *RESTART_BASE = reschedule suspended base thread’ 
RESTART_BASE 


FUNCTIONAL DESCRIPTION: 
f this is the Nth pass cpreuge # routine for the 
ndicated mutex, reschedule the indicated base context. 
CALLING SEQUENCE: 
RESTART_BASE ( COUNTER, CONTEXT, N ) 


i 

i 

i 

: 

1 

' FORMAL PARAMETERS: 

: COUNTER = address of allocated byte to count passes 

! CONTEXT = address of context block to reschedule if this is Nth pass 
: N = number of passes before rescheduling CONTEXT 
COMPLETION CODES: 

lee 

poutine RESTART_BASE ( COUNTER, CONTEXT, N ): NOVALUE = 


OCAL 

OWN_CONTEXT; 
BUILTIN 
INSQUE , REMQUE ; 
EXTERNA 
CSP$GQ_RESUME ; 


.COUNTER = .. COUNTER + 1; 

if ..COUNTER EQL N 

THEN 

BEGIN 

REMQUE ( ..CONTEXT, OWN_CONTEXT ); 

INSQUE ( OWN_CONTEXT, =(CSPSGQ_RESUME+4) ); 


ND; 
TURN 


0000 00000 RESTART BASE: 


«WORD Save nothing 
4 BC 06 0000 INCL  @COUNTER 
50 C AC 9E 0000 MOVAB N, RO 
0 4 BC py 0 09 CMPL  @COUNTER, RO 
D BNEQ 
1 8 BC 9E SO0F MOVAB aCONTEXT, R1 
0 0 Bi F 13 REMQUE @0(R1), OWN CONTEXT 
1 000000006 00 9€ 0001 CSP$GQ_RESUME+4, R 
00 «81 60 OE D015 - INSQUE (OWN_CONTEXT), @0(R1) 


35 bytes, Routine Base: CJFSCODE + 0711 
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1 BSBTTL "CSPSSEND_CONTEXT ' 
5 
; 
5 
5 
> 
5 
5 
5 


' CSPSSEND_CONTEXT 
i FUNCTIONAL DESCRIPTION: 
; Routine Size: 39 bytes, Routine Base: CJFSCODE + 0734 


' 

{ 

! Terminate current thread, return to scheduler. 
' CALLING § QUENC 

! CSPSSEND CONTEXT 

FORMAL PARAMETERS: 
! 

4 

{ 

1 


Non 
IMPLICIT ne ARAMET ERS: 
CSP LcuR CTX ty Seqrees of current context block 


CSP BASE_FP address of scheduler's call frame 
COMPLETION obese 

-_ 

GLOBAL ROUTINE CSPSSEND_CONTEXT = 

BEGIN 

LOCAL 

CONTEXT; ! address of own context 

BU vie 


CONTEXT = atthe br CURCTX; ! get own context block 
aisty CUR ' no current context anymore 
1BSFREE vm ( UPLIT(CLXSK _LENGTH), CONTEXT ); | free the data structure 

SP$GL_BASE_ 


ota ! en the stack.. 
RETURN SS$_NORMAL> ..and return to the scheduler's caller 
END; 


ts ss a 9 =H a 4) 9. 2 —) — 4s Ls as 2) SS 2s Ss 2s Ls ss Ss ss Ss 


Mrorororororerofrory 


WAN WI NI IR ROPONO PON tO 


AUER OO OODNOU SUN SH OODONOUS WN O0@~ 


FUN OOONA NEU — OOODNOAOUE WN OOOO 


= FORORORIPURUNONURONUNURY) 2 


DUP BS PPP PLL EE 


-PSECT CJFSPLIT,NOWRT,NOEXE, SHR, PIC,2 
00000140 00034 P.AAF: .LONG 320 ; 


-PSECT CJFSCODE,NOWRT, SHR, PIC,2 


0004 00000 .ENTRY CSPSSEND CONTEXT, Save R2 > 5241 
52 000000006 09 i a9 ROVAB CSP $a CORCTX. Re pow 
¢2 D4 CLRL CSPS$eL~ CURCTX : $34 
E BD 9000 PUSHL sP : 5250 
» 00000000" F OF F PUSHAB ; 
000000006 : F 15 CALLS Wn f IBSFREE vm ; 
D 000000006 : 00 5 OVE csPSGl BASE_FP, FP $33) 
Be 85 RET : § 3f 


; 1237 5255 1 


d 3 
vous000 CALL_RCP ee et) Pa Le Me CO Ph oh Pe Pate Te Page 435 


3; 1239 1 SSBTTL ‘CALL RCP’ 

3: 1240 lo+ 

3 } re 8 ! ; CALL_RCP 

3 3 rk QO 1 ! FUNCTIONAL DESCRIPTION: 

> 1244 oe Call _the RCP on behalf of one newly remastered Recovery Unit journal. 
: 1245 § 1! The RCP will reacquire locks for any Recovery Units on this journal for 
. 3 <3 65 3! nodes no longer in the VAXcluster. 

: 124 64 1! THIS ROUTINE RUNS IN KERNEL MODE. 

3 1 $8 65 1 ! CALLING SEQUENCE: 

3; 124 ¢] 1! CALL_RCP ( .UCB ); 

3 1 29 ? 1 ! FORMAL PARAMETERS: 

3 1 Bee U = address of local copy of UCB for the Recovery Unit journal 
3; 125 9 1 ! COMPLETION CODES: 

; 125 ee 

> 1254 71 1 ie 

3; 1255 ue 1 ROUTINE CALL_RCP ( UCB: REF BLOCK C,BYTE] ): NOVALUE = 

3 3 2$ 7 BEGIN 

3; 125 74 LITERAL 

: 1258 75 DEVNAM_LEN = 16; ! Length of devnam str 
3; 1259 5276 LOCAL 

3; 1260 : 77 RODB : BLOCK [CRODBSK_LENGTH+4 BYTE) ! Object descriptor 
> 1261 78 RODBA : BLOCK CRODBASR LENGTH+4 BYTE, i Object attributes 
3 1 66 5279 DEVNAM_STR : BLOCK CDEVNAM_CEN,BYTE), ' Device name string 
3: 126 80 DEVNAM : BLOCK (8,BYTEJ ! Device name desc 

3: 1264 81 PRESET ( COSCSW_LENGTH] = DEVNAM_LEN, 

3 1265 S $43 at = Q, 

3; 1266 8 DSC$B_CLASS = 

> 1267 84 DSC$APOINTER] = DEVNAM_STR ), 

: 1268 85 JNLNAM : BLOCK C8,BYTE ! Journal name desc 
3; 1269 86 PRESET ( [CDSC$W_LENGTH] = 0, 

: 1270 87 peeee opi reed = 0 

> 1271 88 DSCSB-CLASS = 0, 

3 1 Le: 89 LOCAL_IOSB : VECTOR (2,LONG), ' local 1/0 status block 
; ’ ie, 39 ; STATUS : LONG; 

3 : o 36 : Initialize fixed fields. 

sf 6 94 RODB CRODBSB_TYPE] = RODBSK_RUJNL; 

3; 1278 95 RODB [RODB$B_COUNT] = 1; 

: 1279 38 RODB CRODB$W_SIZE) = 0; 

3; 1280 9 RODB CRODBSA_POINTER] = RODBA; 

: 1281 38 RODB + RODBSR_LENGTH = 0; 

:1 8¢ RODBA CRODBASS_TYPE] = RODBASK_RUJDEVNAM; 

3 : Be RODBA + RODBASR_LENGTH = 0; 

3 1588 3300 ' Create a descriptor of the journal's home device name. For this, we use 

3 } My] @ common routine from CJF. 

3 1 Bb 5 JNLNAM CDOSCS$W_LENGTH) = .UCB CUCBST_JNL_NAM); 

3: 1289 JNLNAM CDSCSA_POINTER) = UCB CUCBSB_ JNL_NAM); 

3 1290 STATUS = CREATE _RUDEV ( JNLNAM, DEVRAM J; 

: 91 8 IF NOT .STATUS THEN RETURN STATUS; 

: ' 38 19 ; Fill in the device name in the RODBA 

3: 1295 12 RODBA CRODBASW_SIZE] = .DEVNAM COSCSW_LENGTH); 


3 
CSPCJFMAS b-5e -1984 01:16: AX-11 Bliss-32 V4.0-74 Pa 9 
V “800 CALL_RCP : 300-1382 94:19:28 SYSLOA.SRC CSPCURMAS B82;1 943) 
RODBA CRODBASA_POINTER] = .DEVNAM CDSCS$A_POINTER); 
| Call the RCP to process all failed Recovery Units from this RU journal. 


. 
os 


5 i 
. i 
31 1 i 
: 1300 i$ STATUS = CJFSRECOVERW( CJFSM_FAILOVER, ' func 
3 1 84 RODB, ! object 
3 7 1 " ' #ltlst 
3 3 8 0 " ' acmode 
: 1 1 .LOCAL_EFN, i efn 
; i 05 ; LOCAL_TOSB’); i 10SB 
:1 88 4 2 IF _.STATUS THEN STATUS = .LOCAL_IOSB; 
> 1308 5 2 RETURN .STATUS; 
: 1309 6 1 END; 
0000 00000 CALL_RCP: 
-WORD Save nothing ; 5272 
SE co AF 9€ 00002 MOVAB =64(SP), ; 
10 A 10 DO 00006 MOVL #16, DEVNAM + 5284 
14 AE 18 AE 9E OO00A MOVAB DEVNAM_STR, DEVNAM+4 : 
0 AE 7C QOOOF CLROQ JNLNAM + 5288 
4 AE 0106 BF 3¢ 0018 MOVZWL #260, R : 5294 
8 AE ¢8 AE 9€ 0001 OVAB RODBA, RODB+4 : 5297 
C AE D4 00010 CLRL  RODB+S : 5298 
28 AE 06 90 00020 MOVE #6, RODBA : 5299 
30 AE D4 00024 CLRL  RODBA+ : 5300 
50 ac 0 0 7 MOVL L B, R : 5305 
08 AE 0B8 cO 9B B MOVZ2BW 184(R0), JNLNAM ; 
OC AE 0B9 (CO 9E 0 | MOVAB 185(RO). JNLNAM+4 + 5306 
E PUSHAB DEV : 5307 
OC AE 9F OOO3A PUSHAB JNLNAM : 
000000006 00 9 F 00 D CALLS #2, CREATE_RUDEV : 
28 E9 00044 BLB STATUS, 1$ : 5308 
2A AE 10 AE BO 00047 MOVW § DEVNAM, RODBA+2 : 531 
2t OA 14 AE dO O004C MOVL DEVNAM+4, RODBA+4 : 531 
SE DD 08] PUSHL > 531 
7E 00000000' ai A GS MOVZBL LOCAL_EFN, -(SP) : 5321 
s rt A CLRQ  _=(SP) : 5317 
44 AE OF 33 PUSHAB RO ; 
04000000 8F DD F PUSHL a6 08864 : 
000000006 00 6 FB 65 CALLS #6, CJFSRECOVERW ; 
0 bE 4 ber SbvL POCAL fosB, STATUS hone 
Be 85 1$: RET . : $326 


; Routine Size: 115 bytes, Routine Base: CJFSCODE + 0758 


8 


oF 
voasbo0 CALL_RCP eet) a Me Peta Peete Te 
1311 5327 1 ROUTINE MUMBLE = RETURN 1; 


as MUMBLE: .WORD Save nothing 
50 01 8 MOVL #1, RO 

4 RET 
; Routine Size: 6 bytes, Routine Base: CJFSCODE + O7CE 


; 1312 5328 1 ROUTINE RESUME_FAILOVER = RETURN 1; 


0000 00000 RESUME _FAILOVER: 
WORD 


° S 
50 01 dO 0000 MOVL a 
04 0000 RET 


; Routine Size: 6 bytes, Routine Base: CJFSCODE + 07D4 


CSPCJFMAS bse ep-1984 01:16: AX-11 Bliss-3 Pa 41 
you s000 CALL_RCP mo 07 138e 94:19:38 SYSLOA.SRCIC Hatey has. yr} 2;1 9 1a) 
3 1314 1 END 

1318 8383 ElUbom 

: PSECT SUMMARY 

; Name Bytes Attributes 

> CJFSOWN 25 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 

3; CJFSPLIT 8 NOVEC,NOWRT, RD ,NOEXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

; CJFSCODE 2010 NOVEC,NOWRT, RD, e » LCL, REL, CON, PIC,ALIGN(2) 

H Library Statistics 

: eoocece = Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: .$255$DUA28: CSYSLIBILIB.L32;1 18619 89 0 1000 00:01.4 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:CSPCJFMAS/OBJ=OBJ$:CSPCJFMAS MSRC$:CSPCJFMAS/UPDATE=(ENHS: CSPCJFMAS) 
Size: 2010 code + 81 data bytes 
un Time 00. ' 
Flapsed. fieee 526. 
nes/CPU Min 
Lerenes/CPU-Rin: 43192 


Memor 4 sed: 426 pages 
Compilation Complete 
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